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Abstract 


Adaptive Design or prototyping has been suggested as an 
effective approach for developing and implementing computer- 
based decision Support systems (DSS). The literature on DSS 
has also shown that adaptive design improves user involve- 
ment and satisfaction. This thesis attempts to follow the 
adaptive design approach to design and implements a data- 
oriented DSS -- the NPS Department of Administrative Scien- 
ces (AS) Database Reporting System. The development of tne 
AS Reoorting System has helped review the adaptive design 
Strategy. The following findings were derived: 


- Close participation between end user(s) and the system 
ouilder helps to clarify problem issues. 

- Frequent brief interactions between end user and 
system developer provide more immediate and petter 
defined response, resulting in a more effective proto- 
type. 

- Unstructured initial planning sessions involving tne 
end user and the system builder could distract the end 
user from the definition of important initial require- 
ments. A more structured, issue-oriented approach 
results in more timely and clearly defined require- 
ments. 

- User feedback is less intense and critical towards tne 
final phase of the development process. 

- Prototyping is cost-effective, at least for tne first 
phases of system enhancements. 

- Prototypes are disposaole systems. 
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I. INTRODUCTION 


The purpose of this thesis is twofold. First, it de- 
Signs, develops and implements a data-oriented financial 
decision support system for the Department of Administrative 
Sciences (AS) of the U.S. Naval Postgraduate School -- the 
AS Database Reporting System. Second, throughout the deve- 
lopment of the system, tnis thesis seeks to derive some 
observations on the effectiveness of the adaptive, or proto- 
typing, approach in building an end user-oriented comp 
ized decision support systen. 

There are at least two factors that have motivated this 
thesis. First, the increasing need of managing complex 
financial data within the Administrative Sciences Department 
has triggered interest among the department managers to 
automate their financial system. A computerized system is 
expected to provide accurate and timely information han- 
dling. It can also generate fast and standardized resorts 
which are prohibitively labor intensive if done with the 
manual system. 

Second, the literature on Decision Support Systems (DSS) 
often advocates that the traditional approach for developing 
a data processing system is not appropriate for prototyping. 
In fact, a conventional development life-cycle consists of 
eight phases. These include: system feasibility, software 
plans and requirements, product design, detailed design, 
code, integration, implementation and operations and main- 
tenance [Ref. 1]. Such an approach requires full knowledge 
of the nature of the problem. Furthermore, it has revealed 
to be costly in time and effort. Since DSS requirements 
constantly change during the development process, using the 
traditional life-cycle model can be risky. 
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This thesis is organized as follows. Chapter II dis- 
cusses the adaptive design approach to DSS development. 
Characteristics of the prototyping approach are addressed. 
Also, tne model for prototyping is presented.  Cnapter III 
gives an account of the prototyping experiment with the AS 
Database Reporting System. The "diary approach" is adopted 
to record the evolution of the system architecture from the 
user interaction perspective. Chapter IV discusses some 
observations based on the prototyping experiment and pro- 
vides suggestions for possible future extensions of tne 
proposed system. 

Three phases of iterative design are examined. Techni- 
cal reports on the AS Database Reporting System are describ- 
ed in the appendices. Appendix A reproduces the user's 
manual. It provides instructions for the casual users. 
Diagrams of the system interface, reproduction of the system 
menus, and sample nard copy reports are respectively given 
in Appendices B, C and D. Appendix E contains detailed 
technical instructions intended for the database administra- 
tor and the system orogrammer. Data Flow Diagrams, struc- 
tured charts, a data dictionary, program listings and lists 
of taoles are respectively given in Appendices F, G, H, I 
and J. 


II. THE ADAPTIVE DESIGN APPROACH TO DSS .DEUEDOPABND 


A. WHAT IS ADAPTIVE DESIGN? 

Conventional design strategy in data processing systems 
invariably assumes that the requirements of the system can, 
and should, be determined prior to the implementation of the 
System. This requirements analysis can be achieved by per- 
forming logical analysis and investigation of user informa- 
tion processing needs and behavior [Ref. 2]. For instance, 
tne requirements for an accounting system could be determin- 
ed by examining accounting 2rocedures and interviewing 
competent accountants. 

However, such a procedure cannot De applied to building 
a DSS. A DSS can be defined as a computer-based system that 
helps its user(s) in solving ill-defined or unstructured 
decisions. As a consequence, the system designer cannot-- 
and eventually should not -- have or be required to have a 
complete understanding of the user's needs prior to the 
design and implementation process. Rather, he should expect 
that the emergence of unanticipated informational needs is a 
continuing part of the design and development effort. 

Thus, adaptive design in a DSS involves tne role of 
learning in the DSS building process. To reduce the risk of 
not being aole to reach (uncertain) final objectives, DSS 
researchers often argue for adopting the prototyping stra- 
tegy. This consists of focusing the development effort on 
ouilding a quick and working prototype or model that has tne 
most important features or ideas. This early system is next 
delivered to the end user for evaluation. The users tnen 
give their feedback for determining possible enhancements. 
The system builders study the users" suggestions and attempt 
to update the prototype accordingly. This interaction 
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between Ehe User “and the lanalyst continues until a satisfac- 
tory prototype is achieved. An important implication of such 
an iterative and evolutionary process is that both the user 
and the analyst are expected to make mistakes, but attempt 
to learn as much as possible from these mistakes. 


B. CHARACTERISTICS OF ADAPTIVE OR EVOLUTIONARY DESIGN 
The process of evolutionary design can be characterized 
by the following: 
l. Remove the Pressure to Do it Right 
Keen [Ref. 3] insists that the prototyping goal 
should be focused on effectiveness rather than on efficien- 
cy. It is essential that a system be built, even if it does 
not have all of the desired features. Such a strategy will 
nelp remove some pressure on tne system ouilder. In fact, 
high requirements of the system reliability could be a 
gold-plating feature that causes delay and increased costs. 
The end user often wishes to see a working system -- even at 
the risk of incompleteness -- to understand what it is all 
about. 
2. A Learning Process 
Learning is an integrated part of the design process. 
It is assumed taat the user copes with a semi-structured do- 
main. Some relevant decision-making factors are unknown. 
Also, the decision making methods are vaguely defined. 
Prototyping can be used as a learning tool to explore tne 
manner of change in the users' priorities. A good develoo- 
ment process should lead to a redefinition of the user's way 
of analyzing the problem. This would in turn lead to a new 
way to resolve problems. 
3. User Participation 
Evolutionary design involves active user participa- 
tion. The user should provide good and timely feedback to 
facilitate the ennancement process of early nrototyvnes. 
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This implies that the DSS user employs the system and evalu- 
ates it in light of the merits of .theonnftormacuaen wat Cree 
vides to support decision making. He is expected to suggest 
changes in Input/Output formats and the structure of the 
orototyoe under development, rank tne usefulness of various 
modules of the current system and to prioritize the useful- 
ness of suggested features to be integrated. 
4. Inexpensive Development Effort 

Keen and Gambino [Ref. 4] argue that the first proto- 
type should be inexpensive. By its nature, prototyping is a 
risky venture. Since potential benefits of the would-oe DSS 
are often unclear, important development cost can hardly oe 
justified. More important, a nigh initial investment can 


discourage the user to abort tne process. 


C. A MODEL FOR PROTOTYPING OR ADAPTIVE DESIGN 

Neumann and Jenkins propose a prototyoe model that 
consists of four orocedures. As shown in Figure I, tne 
first procedure is a design step that attempts to identify 
the user(s)'s basic information requirements. A number of 
requirements analysis approaches were proposed to identify 
the users(s)'s requirements; the data abstraction approacn- 
- the essential features are data and data relationships, 
and the orocess simulating approach -- poth data and proces- 
ses must be identified in the first step.[Ref. 5] 

The second steo involves the development of the initial 
or enhanced prototype which can then be delivered to the 
user for use and feedback. In tne third step, the use of the 
prototype leads to discussions and suggestions £or ennancing 
the prototype (the fourth step). 
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Figure 1 
A Model for Prototyping 


It should be noted however that the interaction between 
the user and the model is the key issue during the entire 
process. It is the quality and speed of the interaction 
between the user and the system developer that dictates the 


successfulness of the prototyping project. 
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III. THE AS DATABASE REPORTING SY Siva 


A. BACKGROUND 

The Deoartment of Administrative Sciences (AS) of the 
U.S. Naval Postgraduate School has operated its financial 
data base manually. With a size of more than one hundred 
personnel, including faculty and staff, financial ooerations 
and planning has required substantial investment ins 
power. With its growing size, there nas Deen a universal 
recognition to have an computer-based data dase management 
system (DBilS). In darch 1984, an inf£ormation resquipemene 
analysis had peen explored oy Renner [Ref. 6]. This ana- 
lysis applied the methodology of structured design to derive 
some suggestions for ouilding a relational DBMS for the AS 
department [Ref. 7]. In November 1984, a first attempt to 
implement a DBMS was initiated by a Management Information 
Systems faculty member (who played tne role o£ tne system 
2uilder) in collaboration with a departmental management 
assistant (who played the role of the potential user). The 
Knowledge!lan (X-Man) relational Data Base itanagement System 
was adopted as the system generator. X= lan was chosen 
Decause of its flexiole relational database concept and tne 
possioility to perform spreadsheet analysis and graphics. 
It also leaves room for tne trained end user to manipulate 
the DBMS command language. extensive interaction setween the 
two interested parties has lead to a thorough requirements 
analysis and system specifications. Also, a few data tables 
and displayed screen interfaces were developed to test tae 


feasibility of using K-Man as the system generator. 
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B. METHODOLOGY: THE "DIARY APPROACH" 

Ginzoerg argues for a "Diary Approach" to observe the 
relationship between the user and the system designer [Ref. 
8]. This approach has proven useful in recording the evolu- 
tion of the systems modifications and user satisfaction. 
The diary approach consists of using a log book to systema- 
tically record the history of the DSS development process. 
Its records the evolution of the system due to modifications 
requested by both the system builder and the users. Figure 
2 describes the three elements involved in the adantive 
design of the AS database reporting system. Among the users, 
the management assistant and the faculty advisor maintained 
close interaction with the graduate student. The interac- 
tion with the faculty advisor primarily dealt witn concep- 
tual designs and technical issues. The interaction between 
the management assistant and tne graduate student was almost 
daily. It focused on the system development and the inter- 
face format; i.e., screen design and reports. The inter- 
action with the administrative assistant and interested 
office clerks was casual. They provide feedback on the 
quality of the user interface. 

Table I reports historical entries on the iterative 
design process. The changes were either initiated by the 
user (i.e., the management assistant) or the system develoo- 
er (i.e., the author). The definition of the acronyms used 
in the table can be found in Appendix H. 
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Figure 2 : The Elements of the Adaptive Design of the AS 
Database Reporting System 
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DATE 


j Sep 


4 Sep 
5 Sep 


8 Sep 


9 Sep 
26 Sep 


29 Sep 
30 Sep 


Jeoct 


8 Oct 


15 OGE 


TABLE I. DIARY ENTRIES 


INITIATOR 


(D 
U 


D 


= 
= 
c 
—» 


DEVELOPER, 
USER) 


15 Oct-13 Nov D 


ACTION 


Worked on forms to add data to the 
personnel history (PHISTORY) tables. 


Same as above. K-Paint directions 
were misread; caused 2 days delay. 
Created tnree PHISTORY reports for 
user to confirm design. 


Continued working on PHISTORY re- 
ports. 


User had proolems accessing files. 
This was caused by a nardware pro- 
blem. Created three menus: the 
main, expenses and data base menus. 


Modified/created 5 renorts. 


Modified the PHISTORY menu program 
and created a program to delete 
records. 


Transferred files to another compu- 
ter due to hardware oroolems. 
(Backed-up and reconfigured system.) 


Everything is at the same state as 2 
weeks ago - lost 2 weeks due cto 
Backup problems. 


Attempted to pass an ICF program in 
the deletion modules. -- Not suc- 
cessful. 


Attempted to get around above pro- 
blem by using MACRO (s). -- Not 
successful. Decided to use case 
statements if necessary in modules. 
-- This was successful. 
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NG 


i 


18 


20 


2] 
26 


NOV 


NOV 


Nov 


NOV 


NOV 


Nov 


] Dec 


2 Dec 


LI 


12 


14 


Dec 


Dec 


Dec 


7 Jan 


9 Jan 


14 Jan 


15 Jan 


Corrected PHISTORY report. Page 
headers were not displayed. E Eo 
was in reading K-Paint documenta- 
tion: 


Attempted to speed-up processing oy 
RELEASING modules. -- Not success- 
fub. 


RELEASE and MACRO(s) are not needed 
in the code. 


Trying to determine a method of 
printing the last date that a table 
was updated on a report. -=-= Not 
successful. 


Demonstrated system for user. 


Made tne system more user friendly 
(error detection) by using loops in 
programs. 


Working on menus for the reports 
generators. 


Modified PHISTORY report. 
Created Outstanding TO(s) Report. 


Modified forms for entering data 
from mixed case to upper dc 
Added a RATE field to PHISTORY table 
to ease computation of virtual 
fields. 


Created forms to enter data and 
modified programs to display menus. 


Modified orograms to load tables and 
forms once to speed up processing. 


Created form to enter data. 


7 jan modifications were not suc- 
cessful. Deleted modifications. 


Demonstrated system to user. Imple- 
mented system. 
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18-26 Jan U Modified and created programs to 
allow user to access specific re- 
cords. Required creation of 83 more 
files. (perform files, forms and 
error messages) 


3 Fed JU Modified the personnel funding 
report. 
6 Feb U Deleted INDIRECT.DOC# from INDIRECT 


entry forms and added SEGMENT and 
SERIALS to INDIRECT table. 

D Modified the DELTREC2.IPP module so 
that the last record in a table will 
not oe deleted if a match of tne 
deletion criterion is not found. 


13 Feb U Took INDIRECT.EXTENDED out of taoles 
-- not needed. 

16 Feb JU Added PURCHASE.QTY to entry forms. 

17 Feo U Added INDIRECT.SERIALS and INDI- 


RECT.SEGMENT to entry form. Deleted 
INDIRECT.DOC# from same. 


19 Feb U Pound two different data values 
called INDIRECT.DOC#. Placed IN- 
DIRECT.DOC# back in entry forn. 

D/U Took financial analysis ootion out 
of MAINFRM.IPP (not enough time to 
develop and implement). Crossed 
modified system over to production. 


With the "Diary Approach" any major design decisions or 
accomplishments, and significant problems or events were 
logged. As the design of the system progressed, tne majo- 
rity of the actions were initiated by the user(s). 


C. THE EVOLUTION OF THE AS REPORTING SYSTEM ARCHITECTURE 
Departing from the original architecture, this section 
discusses the required modifications that occurred through- 
out the implementation and testing processes. During the 
development process, it has been noticed that the user has 
actively participated in the creation of the DBHS prototype. 
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Such participation has triggered numerous generations of 
new requirements and consequently modifications to the 
originally planned design. The purposes of this thesis are 
(i) to expand tne initial system, a working but incomplete 
data base system that is used as a management planning tool, 
and (ii) to ooserve the evolutionary development of the DBMS 
in terms of user needs and satisfaction. 
l. The Initial AS Reporting System Architecture 

The initial AS Reporting System Architecture (Figure 
3) was based on four income accounts; OPTAR, 103 Indirect, 
other sources of income and research funds, and four expense 
accounts; miscellaneous expenses, travel, personnel salary 
and equioment/supplies. Figure 3 shows tnat tne income 
accounts had varied expenses; i.e., miscellaneous expenses, 
travel and equipment/supplies may be funded by the OPTAR 
account. Additionally, there may be major restrictions on 
expense funding; i.e., equipment/supply purchases over $3000 
may not be funded by the OPTAR account, personnel salaries 
may not be funded from the OPTAR account. 
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| ba om | 
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10% Travel 
Indirect | 
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Research | Equipment/ | 

| Fund Supplies | 
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| | | 


Figure 3: The Initial AS Reporting System Architecture 


Le The First Modification Stage 
During the first modification stage, an additional 


income account, OPTAR balance, and an additional expense 
account, travel request, were deemed necessary to provide 


the user(s) with more financial information. 


3. The Second (Final) Modification Stage 


During this stage, accounts (data tables) were added 
and deleted from the AS Reporting System's Architecture. 
The two data tables added during the first modification 
stage, OPTAR Balance and travel request were deleted. The 
OPTAR and travel accounts, with minor modifications, could 
provide the same information as the before mentioned deleted 
tables. Two tables were added, one table contained person- 
nel information (pay grade, job status, etc.) and another 
contained an inventory of property. Appendix J is a list 
of the current data tables and their respective data fields. 
The following are major changes resulting from user inter- 
action: 


l. Redefinition of field names and tyoes to increase 
consistency throughout the data base and deletion or 
addition of data fields;. redefined fields -- 7, 
deletion of fields -- 12, addition of fields -- I6. 

2. Menu and form formats. 

3. Change of instructions on menus and forms. 

4. Compromise of report formats to fit both users; the 
more knowledgeable user wanted more information 
while novice users wanted less. 

5. The ability to select records based on specific 
field values. 
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IV. RESULTS AND DISCUSSION 


This thesis involved the design and implementation of a 
data-oriented decision support system to support financial 
decision making of the AS Department. 


A. SOME OBSERVATIONS ON THE EXPERIMENT 


l. Close Participation Between the End User(s) and the 
Systems Builder . 
Adaptive Design allows the user to actively partici- 


oate in the evolution of the system characteristics. Three 
basic changes in the system design occurred during the 
prototyping effort. First, some data tables were redesign- 
ed. Field names and sizes had been redefined. A number of 
tables were combined. Second, additional program modules 
were added to coordinate various systems functions using 
menu structures. The latter render the sequencing of program 
modules transparent to novice users. Third, the use of the 
system (i.e., K-Man) command language was increased. 

In a more conceptual level, the cross examination of 
the prototype give rise to better understanding of the 
issues related to the financial system. The experience witn 
the implementation of tne AS Reporting System also confirms 
some early findings that argues prototyping as a catalyst to 
participative design, learning, and Organizational develop- 
ment [Ref. 9]. In effect, it has been observed tnat the 
main participating user has gained increasing interest in 
the understanding and design of systems. Also, tne early 
success of the prototype has generated some redesign of 
office tasks. 

2. Interaction Time 

The more frequent the interaction time between the 

user and the developer, the more effective the prototype. 
21 


Delayed feedback has proven to slow down the learning 
process and weaken the participants" enthusiasm. Time 
oressures could be used as a strategy to speed up the inter- 
action process. 
3. Planning Sessions 

Unstructured initial planning sessions involving the 
end user and the system builder could distract the end user 
from the definition of important initial requirements. A 
more structured, issue-oriented approach results in more 
timely and clearly defined requirements. This is even 
accentuated when there is more than one participating user 
and/or novice users. Individual differences sometimes have 
oroduced conflicting design suggestions. However, effective 
group discussion have proven to avoid the risk of designing 
system features that reflect strong biases from a single 
individual. Henderson [Ref. 10] raises the potential risk 
of loss of creativity when dealing with multiple participa- 
ting users. Due to little group interaction, and more 
importantly, to the large disparity in the degree of parti- 
cipation, it was not possible to confirm nor disconfirm the 
impact of group interaction processes and user creativity. 


4. User Feedback is Less Intense and Crucial Towards 
the Final Phase of the Development Process 





The user feedback is expected to end when a satis- 
factory system is delivered. It seems to De unrealistic to 
expect the end user -- even though he/she has become more 
computer literate -- to keep expanding the system. Since 
the user has captured the capabilities as well as limita- 
tions of the system, he/she can more or less precisely 
formulate requirements for future enhancements. At this 
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Stage, the need of sustained user feedback seems to be less 
crucial -- requested modifications are normally minor. 
5. Cost Effective 

Prototyping is cost effective, at least for the 
first phase of system enhancements. The effort spent on 
developing a successful and complete module nas allowed 
duplication of programming procedures to similar modules in 
later version of the prototype. However, it is not clear 
tnat the economies of scale effect would continue to imple- 
ment more complex integrated modules in the future. 

6. Prototypes are Disposable Systems 

At least for the user who has participated through- 
out the entire design and implementation process, tne proto- 
type has become to a certain degree disposable. Since the 
participative user has become increasingly computer lite- 
rate, some of the initially requested DSS features have 
revealed to be less useful. In fact, the ease-of-use and 
structured features of the system has reduced the DSS to 
perform only for a well-defined set of data manipulation and 
reporting. To perform unusual data manipulation, a trained 
user can now directly use the DSS generator command lan- 
guage. However, this seems to be true only for the user who 
has worked closely witn the development of the system. 
Other users, who are primarily casual users and non computer 
experts, are expected to find the system useful. 


B. RECOMMENDATIONS FOR FUTURE EXTENSIONS 

By definition, the adaptive design should help the system 
to be progressively expanded. The current system primarily 
handles data management and report generation. There are a 
number of possible enhancements that could be added to the 
current release of the AS database reporting system. 
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l. Forms Handling 
The AS department office information system operates 


via a multiplicity of predesigned paper forms such as travel 
orders, purchasing stubs, reimbursement forms, etc.. These 
forms have been processed by office clerks using typewrit- 
ers. Additional report procedures could be added to the 
current release of the AS Database Reporting System to 
generate these stub from the computer printers. Such a 
capability would significantly improve the office produc- 
tivity by reducing typing errors, and duplication of effort 
in twice entering the same set of information using both the 
typewriter and the computer. 

The generation of office forms for tne printer can 
oe done oy using the K-Report report generation feature to 
replicate forms. This could be done without much difficul- 
ev. It should be noted however that continuous customized 
computer forms must be ordered. 

2. Financial Planning 

To support financial planning, data that reflect the 
balances of various expenses accounts snould ve rapidly 
computed. Also, the user should be able to import selected 
data from data tables to handle spreadsheet analysis. The 
use of spreadsheets would allow the user to perform what-if 
analysis on various financial decisions. Purthermore, a 
trend analysis can be supported oy the system by displaying 
various graphical charts of key financial figures. To imple- 
ment the financial planning capability to the system, tne 
following steps are suggested: 


l. Join relevant financial data tables together. 

2. Write procedures to compute conditional aggregate 
values. 

3. Import aggregate values into the K-HMan spreadsheet. 

4. Describe procedural steps for the user to manipulate 
Spreadsheet functions. 

5. Import data from the spreadsheet to the K-Graoh 
feature for graph generation. 
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3. Regulation Engineering 


As witn any governmental agency, the financial 
decision making process has to strictly follow the laws and 
regulations determined by the Federal Government. These 
regulations include travel expenses (e.g., 10% money cannot 
be used for Invitational Travel Order), personnel (e.g., tne 
OPTAR account cannot be used for personnel salaries), and 
equipment purchases (e.g., sole source justification is 
needed for expenses whose amount is more than one thousand 
dollars; purchase using OM & N funds cannot exceed three 
thousand dollars). The responsibility to make sure that 
Financial decisions are legal relies solely on the user. 
Due to the complexity and diverseness of regulations, it 
would 2e useful that the system can store some knowledge in 
tne system. The latter can be used as a internal comptrol- 
ler that instantaneously checks the legal aspect of all 
financial transactions.” 

The knowledge on various legal issues and financial 
practices could be acquired and integrated into the current 
AS database reporting system by using GURU: an off-the-shelf 
expert system development tool and a by-oroduct that can be 
fully interfaced with K-Man. 
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V. CONCLUSIONS 


Ihe purpose of this thesis was twofold: 


l. To use the adaptive or prototyping approach to imple- 
ment a data-oriented DSS for tracking financial trans- 
actions of the Naval Postgraduate School's Department 
of Administrative Sciences. 

2. To derive from the system development, some ooserva- 
tions on the impact of the A Daa approach on 
systems design. 


These two objectives have been achieved. First, the AS 
Database Reporting System has been used since January 1986. 
The system has gained in usage as tne system has benefited 
from ennanced capabilities. Also, the number of systems 
users has also increasing. Travel clerks and purchasing 
clerks begin to use the system on a regular basis. Various 
members of the department also use the system on a casual 
basis via the Management Assistant who is currently the 
database administrator. Second, this thesis confirmed some 
of the early results found recently on tne DSS literature 
regarding the DSS design strategy. 

The results of this study was reported both in tne main 
body of the thesis and the appendices. Chapter I described 
basic concepts and issues relating to prototyping. Chapter 
II reported the development process of the AS Database re- 
porting system in light of the adaptive design. The "Diary. 
Approach" was adopted to record development activities and 
the interaction oetween the user and the system develooer. 
During the development process, close interaction with the 
user has lead to three modifications of the AS Reporting 
System Architecture. Chapter III analyzed and discussed the 
results of the experiment. Some suggestions for future 
extensions of the current database were also presented. The 
integration of spreadsheet analysis, graphical displays, and 
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a knowledge-based system to the current version of tne 
AS Dataoase Reporting System would greatly improve tne 
decision support role of the implemented financial system. 
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I. INTRODUCTION 


The purpose of this user's manual is to quide the first 
or casual user to get acquainted with the operations of the 
Administrative Sciences (AS) Data Base Reporting System (the 
AS System). The current version of the AS System is an 
interactive, menu driven data base management system. This 
system is used to input, edit and store the U.S. Naval 
Postgraduate School's Administrative Sciences Department's 
financial data (i.e., the AS Department's OPTAR, data rela- 
tive to the AS Department's indirect cost and research ac- 
count, and the Department's equipment inventory) and to 
create financial reports for budgetary planning. Because 
this is a menu driven system, prior programming knowledge is 
not required to use the AS System. 

For the sake of simplicity, aspects that are related. to 
the conceptual design and technical specifications of the AS 
System are described in separate documents -- tne Program- 
mer's Manual and the thesis titled "The AS Financial Report- 
ing System: Some Experience on Prototyping and User Inter- 
action"; written by R.L. Booker. 

This manual is organized as follow. General and most 
frequently asked information are provided in cnapters I 
through III while more specific and less used information 


are provided in chapters IV and V. 
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II. "PRINCIPAL USERS 


The principal users of this system are expected to be 


the AS Department's Support Services Supervisor, 


Assistant, 


Travel Clerk and Procurement Clerk. 


Management 
The Manage- 


ment Assistant is the AS System's Data Base Administrator 


(DBA). 


All request or suggestions for changes and major 


problems should be referred to the Data Base Administrator. 


Table I indicates some functions that 


the AS System can 


currently provide to support tne tasks of each of the above 


mentioned users. 
USERS 


Support Services 
Supervisor 


Management As- 
Sistant 


Travel Clerk 


Procurement 
Clerk 


TABLE I. 


DUTIES 


Supervises, plans and 
coordinates the de- 
partment's support 
functions and cleri- 
cal support. 


Interprets reports of 
all financial receipts, 
expenditures and re- 
cords.  Identifies 
contributing sources 
and makes comparisons 
to establish budget 
trends. 


Prepares and manages 
all travel related 
documents for de- 
partment.  Coordi- 
nates and manages all 
travel related ar- 
rangements. 


Receives requests for 


department procure- 
ment. 


30 


SYSTEM FUNCTIONS 


SYSTEM SUPPORT 


Status update on 
personnel. 


Updates financial 
oalances from 
purchase and tra- 
vel expenses re- 
DOLLS. 


Outstanding TO(s) 
report 


Requisition Sta- 
tus and Inventory 
reports 


DIIS OBERATION OF SYSTEAM 


A. LOCATION 
The System is resident on the IBM-PC XT in room Inger- 


soll 230. 


B. START-UP (BOOT-UP) 


Ike 


Place the provided DOS version 2.1 diskette in flop- 
py drive (slot) A of the PC; the left drive in Fi- 
gure l. 

The computer and printers are connected to a toggle 
switch under the computer taole. The on-off switch 
on the computer should always be in the on position. 
Turn tne toggle switch on to turn the computer and 
printer on. The computer will run its system's 
checks. (Steps 1 and 2 are considered a cold start) 
Note the warm start procedures below. 

When the C»? prompt appears, type in KMAN MAINAEN. 
when prompted, type in your name and password. 

When the AS System menus appear, make your menu 


selections. 


"Warm Start Procedures: 


If the power has been previously turned on and the provided 


DOS version 2.1 diskette has been previously loaded, steps l 


and 2 of the start-up instructions may be ignored. Instead, 
together press the two keys marked CONTROL and ALT, and then 
the key marked DELETE (This is considered a warm start.). 


Now perform steps 3 through 5. 
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C. EXIT 
1. Select the last option in the main menu to exit the 
AS System. 
2. Turn the toggle switch off. (power off) 
3. Take the diskette out of the computer. 


IBM Monochrome Display 






System Unit 


5-1/4 Inch 


Keyboard Diskette Drives 


Figure l. IBM PC 
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D. DATA MANIPULATION 
All of the table manipulation instructions are displayed 
On BLUE menus. The following options are available for each 
table: 
- browse a table : allows viewing of all the 
records in a table 


- update a record : allows modifications of 
the contents of records 
given specific selection 
criterion 


- add a record : allows the addition of a 
record to a table 


- delete a record e allows tne deletion of a 
record from a table based on 
specific criterion 


- return to calling menu : will display the next 
higher level menu 


Appendix B is a chart of the AS Systems menu's hierarchy 
and Appendix C displays the AS System's Menus. 
1. To View All of the Records in a Table. 

Select the "browse a table" option in the specific 
table menu. A form will appear displaying the first record 
within the table. The table is sorted based on a predeter- 
mined requirement. The bottom of the form contains instruc- 
tions for moving the cursor on tne form and for viewing the 
prior or next record. If an attempt is made to display pass 
the last record in a table, the cursor will move to the BOT- 
TOM LEFT corner of the screen and the table's menu will be 
displayed. 

Note -- Pressing ESC in the BOTTOM LEFT corner be- 
low. 

2. To Update a Record or Group of Records in a Table. 

Select tne "update a record" option in the specific 
table's menu. A form will appear requesting the entry of a 
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specific value that will select only the records containing 
that exact value. Enter the selection value. 
a. If a record meets the selection value criterion, 

the only record, or the first record, gnat medis 

tne selection criterion will be displayed on a 

form. The bottom of the form contains instruc- 

tions for moving the cursor on the form and for 
viewing the prior or next record that meets the 

Selection criterion. If an attempt is made to 

display pass the last record that meets tne 

selection criterion, the cursor will move to the 

BOTTOM LEFT corner of the screen and the table's 

menu will be displayed. 

D. If a record does not meet tne selection criteri- 

on, the following message will be displayed - 

"No records satisfy this request". The table's 

menu will then be displayed. Confirm that tne 

Selection value was entered or spelled correctly 

by selecting the "browse a table" option. 

Repeat the steps to update a record. If the 

problem continues, notify the AS System Admini- 

Strator. 

Note - Pressing ESC in the BOTTOM LEFT corner oelow. 

3. To Add a Record. 

Select the "add a record" option in the specific 
table's menu.  A form will appear in which the data for a 
specific record is entered. The form contains instructions 
for moving the cursor on the form. 

Note - Pressing ESC in the BOTTOM LEFT corner below. 

4. To Delete a Record ina Table. 

Select the "delete a record" option in the specific 
table's menu. A form will appear requesting the entry of a 
Selection value that will enable the display of only the 
record(s) containing that selection value. Enter tne selec- 
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tion value. Another form will appear confirming deletion of 
a record. If Y is entered, you are committed to deleting a 
record. If N is entered, the table's menu will be display- 
ed and no record(s) will be deleted. 

If Y is entered for deleting a record and a record 
meets the selection value, the only record, or the first 
record, that meets the selection criterion will be displayed 
on a form. The bottom of the form contains instructions for 
moving the cursor on the form and for viewing the prior or 
next record that meets the selection criterion. Place tne 
cursor in the TOP LEFT corner of the form and press tne ESC 
key to delete a record. ONLY the record that is displayed 
when the ESC Key is pressed will be deleted. After the re- 
cord nas been deleted, the table's menu will be displayed. 

Note - Pressing ESC in the BOTTOM LEFT corner oelow. 
NARNING 

If more than one record meets the selection criteri- 
on, all of the records that meet the criterion will be able 
to be displayed and deleted. If you attempt to display pass 
the LAST record that meets this criterion, this record will 
be DELETED without the requirement to press the ESC key. 
Therefore, check the displayed record to ensure tnat it is 
not the record for deletion before attempting to display tne 
next record. Remember, the LAST record that matches your 
Selection criterion will be DELETED if displaying pass the 
LAST record is attempted. 


Pressing ESC in the BOTTOM LEFT Corner. 
If ESC is pressed while the cursor is in the BOTTOM LEFT 


corner, the following message will appear: FEXIT or FABORT 
hit - are you sure (Y/N) ? 

- Y will exit the AS System. 

- Nwill display the table's or report's calling menu. 
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E. PRINTING PREDEFINED REPORTS 

For the current version, five reports have been gene- 
rated and could be automatically invoked. These include the 
Quarterly Inventory, Outstanding TO(s), Personnel Funding, 
Personnel History and the Requisition Status reports. Ap- 
pendix D contains samples of the AS System's Reports. The 
menus for REPORT printing are colored BROWN. Select the 
menu containing the report that is required to be printed. 
ENSURE that the printer is CONNECTED to the computer and 
turned ON. Select the option for the report that requires 
printing. (Due to numerous sorts involved in printing of the 
Personnel Funding Report, there is a 1-3 minute wait before 
the report is printing.) After the report has peen print- 
ed, tne calling menu will be displayed. 


Note -- If printing of a report is attempted while the 
printer is not on or connected to the computer, an 
error message will pe displayed. Connect the printer 
and turn it on. Now attempt to print the report. 


Note -- All reports are formatted for the NEC 3550 prin- 
ter. Use of other printers will require changes to the 
AS System's programs. Notify the DBA if tnis is neces- 
sary. 
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IV. TABLES 


The AS System's data is stored in the following tables: 


l. Indirect - 


2a OPTAR: 


3. Other - 


information on research and other 
reimbursable sources of funds and 
resulting Indirect Costs to De- 


partment 
contains information on Depart- 
ment's operating budget 
contains information on other 


sources of Department funding 


4. Personnel Funding - contains personnel expense data 


5. Personnel History - 

6. Purchase - 

7. Travel Expenses - 
A. SOURCES OP 
Indirect Table: 


‘| 7" entry date 
- Status 


- principal 


contains personnel data for staff 
positions within the AS Department 
contains data on Department and 
research purchases 
Department and Research travel 
expenses 


DATA FOR TABLES 


date record entered into the AS System 

if research, pending when first entered 
into AS System and changed to funded when 
funding document received from Comptroller 
if other reimbursable, funded 

if research, last name of principal inves- 
tigator on proposal 

if other reimbursable, from Code 002 Reim- 
oursable Funds Status Report 


2 


sponsor 


proposal 


period 


20 d 


estimate 


DEPT C 


t 
4 ame a— ae A 


IPR 


ref# 


authorized 


if research, from proposal 


if other reimoursable, source from Code 002 
Reimbursable Punds Status Report 

if research, actual title of proposal (con- 
firm with funding document wnen funding 
document received) 

title from Code 002 


Reimbursable Funds Status Report 


if other reimbursable, 


if research, dates specified on proposal 
for performance of research 

if other reimbursable, no entry 

if research, estimated cost of research for 
current fiscal year from proposal's budget 
page 

1f other reimbursable, no entry 
if research, the amount that the department 
is expected to receive in indirect cost; 
calculated from the proposal's budget page 
(103 of total labor charges) 

if otner reimbursable, no entry 

MIPR # from Block #5 of fund- 


(Military Inter-department 


if research, 
ing document 
Purchase Request) 

if other reimbursaole, no entry 
if research, Reference # from Block #5 of 
funding document (Order for Work and Servi- . 
NAVCOMPT 2275) 


1f other reimbursable, 


ces, 
no entry 
if researcn, actual authorization from Code 
002 Memorandum (Funds Autnorization Grant/ 
Change) 

if other reimbursable, act auth from Code 


002 Reimbursable Funds Status Report 
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“TR Sor 


- Costcode 


SE E 


- expiration 


E ICRECD 


Ni aa 


- staff 
labor 


appropria- 
tion 


- doc# 


Sr 


- Segment 


Y 
F3 


- Serials 


^ | f f 
TEET 


if research, job order from Code 002 Memo- 
randum (Funds Authorization Grant/Change) 
if other reimbursable, JO # from Code 002 
Reimbursable Funds Status Report 

if research, exp date from Code 002 Memo- 
randum (Funds Authorization Grant/Change) 
if other reimbursable, exp date from Code 
002 Reimbursable Funds Status Report 

if research, Indirect (Chairman) £rom Code 
002 Memorandum (Funds Authorization Grant/ 
Change) 

if other reimbursaole, ind cost (chair) 
From Code 002 Reimbursable Funds Status 
Report 

if research, total of all support labor 

on proposal's budget page 

1f other reimbursable, no entry 

if research, amount which the principal 


investigator agreed to give the Department 


if other reimbursable, verbal authorization 
from principal investigator or Department 
Chairman. 

if research, Document # from Block #2 of 
funding document (Order for Work and Ser- 
vices, NAVCOMPT 2275) 

if research, segment from Code 002 ilemoran- 
dum (Funds Authorization Grant/Change) 

if other reimbursable, seg from Code 002 
Reimbursable Funds Status Report 

if research, serial $'s from Code 002 Memo- 
randum (Funds Authorization Grant/Change) 
if other reimbursable, doc #'s from Code 
002 Reimbursable Funds Status Report 
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OPTAR Table: 


entry date 
date 


authorized 


travel 
authorized 


e 


actual 


— SÉ 


travel 
actual 


am 
e 


difference 


travel 
Gast £ 


=> 


date record added to AS System 

date of latest authorization memo 

received 

total amount authorized; from Code 00 Memo- 
randum (Fiscal Year Interim Operating Tar- 
get) 

amount designated for travel; from Code 00 
Memorandum (Fiscal Year Interim Operating 
Target) 

changes in authorized; from reissues of 
Code 00 memorandum (Fiscal Year Revised 
Interim Operating Target) 

changes in travel authorized; from reissues 
of Code 00 Memorandum (Fiscal Year Revised 
Operating Target) 

(actual - authorized); computed by AS Sys- 
tem 

(travel actual - travel authorized); compu- 
ted by AS System 
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Other Table: - comes from verbal authorization of De- 
partment Chairman or Assoclate Chairman for 
Research and the principal investigator 


$ 


- entry date - date that the record is entered into tne AS 


"or System 
- Status - status of availability of funds to Depart- 
Sie «Er ment; pending, received, or expired 


- expiration - Expires from Research Administration print- 

o i) out or Exp Date from Reimbursable Funds 
Status Report provided at time of agreement 

- principal - Account from Research Administration orint- 
out; or principle investigator from Rein- 


oursaole Funds Status Report 


- Sponsor - sponsor from Research Administration orint- 

NL out or source from Reimbursable Funds Sta- 
tus Report 

- proposal - title from Research Administration orintout 

st lyf Or Reimbursable Funds Status Report 


- costcode - cost code from Research Administration 
Printout or JO# from Reimoursabdle Funds 
Status Report 

- authorized - amount agreed upon for Departmental use 

- remarks — inxsc 


a+ f? C ) Y 
y 4 4 
a 


4l 


entry date 


last name 


first name 


fund date 


fund from 


fund to 


# of days 


hours 


cost code 
code 
amount 


rate 


hours per 
week 


Personnel Funding Table: all data comes from the depart- 


ment's outgoing Support Employment 
Schedule 

date of record entry to AS System 

from employee, from outgoing Support Em- 


ployment Schedule Memorandum 


from Personnel History table 

date of outgoing Support Employment Sche- 
dule Memorandum | 

date funding period commences, dates from 


outgoing Support Employment Schedule lemo- 


randum 

date funding period terminates, dates from 
outgoing Support Employment Schedule lemo- 
randum 

number of 8-hour days worked during funding 
period, days from outgoing Support Employ- 
ment Schedule Memorandum 

number of hours in excess of 8-hour days 
worked, hours from outgoing Support Employ- 
ment Schedule Memorandum 

from outgoing Support Employment Schedule 
from the following department codes: 

- SS; support salaries 


calculated based upon rate and number of 


days/hours worked 


employee's rate during funding period, rate 
from personnel funding 

number of hours employee worked during 
funding period, hours per week from person- 


nel history 
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Personnel History Table:. 
- entry date - 


last name 


first 


DOB 


effective 


Status 


Dillet + 


job title 


elements/ 
stds set 


work unit 


work 


PD # 


series 


grade 


step 


date record is entered into table 


from olock # 1 of Standard Form 50 (Notifi- 
cation of Personnel Action 
from olock # 1 of Standard Form 50 (Notiri- 


cation name of Personnel Action) 

date of birth from block # 4 of Standard 
Form 50 (Notification of Personnel Action) 
from block # 14 of Standard Form 50 (Noti- 
fication of Personnel Action) 

from block # of Standard Form 50 (Notifi- 
cation of Personnel action); T = 
ry; P = permanent 

from block # 27 of Standard Form 50 (Noti- 
fication of Personnel Action); assigned by 
CPO 

from block # 27 of Standard Form 50 
fication of Personnel Action) 


tempora- 


(Noti- 


date elements and standards set for perfor- 
mance review; from current performance ap- 
praisal 

assigned oy support services supervisor, if 
any 

immediate supervisor, from Block + of 
Position director Description cover sheet 
from block # 27 of Position Description 
cover sheet or block # 27 of Standard Form 
50 (Notification of Personnel Action) 

from block # 29 of Standard Form 50 (Noti- 
fication of Personnel Action) 

from block # 30 of Standard Form 50 (Noti- 
fication of Personnel Action) 

from block # 31 of Standard Form 50 


fication of Personnel Action) 


(Noti- 
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annual. 
salary 
hours per 


week 


explre 


rate 


remarks 


From block t 32 of Standard Form 50 (Noti- 
fication of Personnel Action) 

* Of hours worked per week, from Block # 37 
of Standard Porm 50 (Notification of Per- 
sonnel Action) 

date of expiration of temporary appoint- 
ment, from block # 18B of Standard Form 50 
(Notification of Personnel Action) 

value automatically computed by tne System 


misc 
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Purchase Table: 


= entmy date 
- document + 
- costcode 

- vendor 

- item 

description 

=- stock + 

- estimate 

= priority 


= RDD 


- code 


date that the record is entered into AS 

System 

from block # 36-43 of DD Form 1348 (Requi- 

Sition System Document) 

Or JO#, from block + 46-50 of DD Form 1348 

(Requisition System Document) 

from block + A of DD Form 1348 (Requisition 

System Document) 

from block + 8-22 of DD Form 1348 (Requi- 

sition System Document) 

or part +, from block + 8-22 or Remarks of 

DD Form 1348 (Requisition System Document) 

from block + T of DD Form 1348 (Requisition 

System Document) 

from block # 60-61 of DD Form 1343 (Requi- 

sition System Document) 

required delivery date, from block # 62-64 

of DD Form 1348 (Requisition System Docu- 

ment) 

from the following department codes: 

- LO; transportation of tnings (Federal 
Express) 

- HR; rental of equipment 

- PM; maintenance of minor property 

- PP; maintenance of plant property 

- QH; honoraria 

- QT; registration fees 

- TS; consumable supplies 

- Wil; minor property acquisition 

- WMC; computer equipment/accessories 

- WP; plant property acquisition 

- WPC; computer equipment 

=~ YP; commercial printing 
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requestor 


POs 


received 


firm 


price 


serial 


pa 


issue 


location 


qty 


remarks 


last name of individual who requested pur- 
chase, from Block + of DD 1348 (Requisi- 
tion System Document) 

purchase order + from Block # 2 of DD 1155 
(Purchase Order) 

date item received, from receiving copy of 
DD 1348 (Requisition System Document) 
final price, from Block U of DD 1348 (Re- 
quisition System Document) or Block # 23 of: 
DD 1155 (Purchase Order) 

if a plant account item, from equipment 
plant account #, from inventory records 
forwarded by receipt control 

name of individual plant account equipment 
issued to, from 

location of plant account equipment, from 
from Block # of DD 1348 (Requisition Sys- 
tem Document) 


misc 
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Travel Expenses Table: 


- departure 


2 requester 


- location 


- code 


- estimate 


if civilian orders, from Block # 10B of DD 
1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

if military orders, from Block # 9 of NAV- 
PERS1320/16 (TEMADD Travel Orders) 

if invitational orders, from Proceed on or 
about from NAVSO4650/10 (Invitational Tra- 
vel Order) 

if civilian orders, from Block # 2 of DD 
1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

if military orders, from Block # 3 of NAV- 
PERS1320/16 (TEHADD Travel Orders) 

if invitational orders, from Block #1 of 
NAVS04650/10 (Invitational Travel Order) 
destination of traveler 

if civilian orders, from Block # 11 of DD 
1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

if military orders, from Block # 13 of NAV- 
PERS1320/16 (TEMADD Travel Orders) 

if invitational orders, from Block # 1 of 
NAVSO4650/10 (Invitational Travel Order) 
type of travel from the following depart- 
ment codes: 

- EI; invitational travel 

- ET; TAD travel 

estimated cost of travel 

if civilian orders, total from Block # 14 
Of DD1610 (Request and Authorization for 
Travel of DOD Personnel) 

if military orders, total from Block # 18 
of NAVPERS1320/16 (TEMADD Travel Orders) 
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- costcode 


- doc ij 


=- advance 


- return 


- claim date 


- fitm příce 


- entry date 


if invitational orders, from for the pur- 
pose of from NAVSO4650/10 (Invitational 
Travel Order) 

or JO#, from travel orders 

if civilian orders, from Block + 19 (GS 
XXXXX) of DD1610 (Request and Authorization 
for Travel of DOD Personnel) 

if military orders, from Block # 17(8) of 
NAVPERS1320/16 (TEMADD Travel Order) 

if invitational orders, from Block # 7 
(62271XXXXX) of NAVSO4650/10 (Invitational 
Travel Order) 

if civilian orders, tango from Block + 19 
of DD1610 (Request and Authorization of TDY 
Travel of DOD Personnel) 

if military orders, tango from Block # 4 of 
NAVOERS1320/16 (TEMADD Travel Order) 

if invitational orders, from Block # 7 
(ITXXXXX) of NAVSO4650/10 (Invitational 
Travel Order) 

if civilian orders, from Block #15 of DB- 
1610 (Request and Authorization of TDY 
Travel of DOD Personnel) 

if military orders, from Block. 21% 
NAVPERS1320/15 (TEMADD Travel Order) 

if invitational orders, no entry 

date of return, calculated from travel 
orders 

from Block $ 14 of DD Form 1351-2 (Travel 
Voucher or Sub-voucher) 

total of Blocks #7 and + 10 from DD Form 
1351-2 (Travel Voucher or Sub-voucher) 

date of record entry to AS System 
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~ DOV # ~ DO Voucher No. from Block # 10 of DD Form 
1351-2 (Travel Voucher or Sub-voucher) 
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Inventory Table: 
= pat j paa 


m iine = 
- description- 
- serial + - 
- POF - 
- cost = 
- received - 
= vi = 


- location - 


plant account number, from Block # 54 of DD 
1342 (DOD Property Record) 

from Block # 14 of DD 1342 (DOD Property 
Record) 

from Block # 26 of DD 1342 (DOD Property 
Record) 

from Block # 17 of DD 1342 (DOD Property 
Record) 

purchase order number, from Block # 25 of 
DD 1342 (DOD Property Record) 

from Block # 6 of DD 1342 (DOD Property 
Record) 

from Block # 54 of DD 1342 (DOD Property 
Record) 

from Block # 28 of DD 1342 (DOD Property 
Record) 

from Block # 28 of DD 1342 (DOD Property 
Record) 
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A. 


B. 


V. ERRORS AND ABNORMAL PROCESSING 


ERRORS 

Notification of errors are given by two methods: 

ii The AS System will display a WHITE on RED flashing 
message, which will prompt for a legal entry. When enter- 
ing numbers, only use the numbers along the top of tne 
keyboard. 

2. The language (KnowledgeMan) or the Disk Operating 
System (DOS) will display a WHITE on BLACX message. The 
following are examples of messages which may be displayed: 

a. DO you want to escape (Y/N)? - Normally enter N 
(no). 

D. “type? error reading <device>; Abort, Retry, Ignore? 
- Normally enter R (retry). 

If display of the message continues, enter A (a- 
Dol). 

C. A warning message may appear; example - File not 
found. Note tne error message, exit the AS System, 
remove the diskette and notify the System Admini- 
SEBQCOF. 


ABNORMAL PROCESSING 
If the AS System does not process normally (takes a 


longer than normal time to process), press tne ESC key. 


Pressing the ESC key will either return processing to tne 


calling menu or exit the AS System and the Knowledge:llan 


prompt ( _ ) will appear. 


Then perform the following: 


1. If processing is returned to a calling module, attempt 
to continue normal processing. If the problem contin- 


5] 


ues, turn the power off, remove the diskette and noti- 
fy the System Administrator. 

If the XnowledgeMan prompt ( | ) appears, type in ZMAN 
MAINMEN and attempt to continue normal processing. If 
the problem continues, turn the power off, remove tne 
diskette and notify the System Administrator. 
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APPENDIX B 
Diagram of the AS System’s Menus 
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| | 
| | (TRAVFRM) | 
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Funding | | History 
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| : 
Data Base | 


Income | 
( INCOMFRM) | 





| 
| 
| 
| 








OPTAR | Indirect | - | Other 
Income | Income i Income | 
| (OPTARFRM) | (INDIFRM) | | (OTHERFRM) | 


— 


| 1.2.1| | ie Zee use] 


APPENDIX C 
AS SYSTEM'S MENUS 


AS Financial Reporting System 


Main Menu 


] - Data Base 
2 - Reports. 


3 - To Quit 


enter your selection _ 
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Data Base 


- Expenses 


- Income 


Property 


Re U N HL 


- Return to calling menu 


enter your selection _ 
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Datapase Expenses 


- Personnel 


Travel 


LA N E 
l 


- Purchase 


4 - Return to calling menu 


enter your selection . 


58 


Personnel 


1 - Personnel Funding 
2 - Personnel History 


3 - Return to calling menu 


enter your selection _ 
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Personnel Punding Expenses 


1l - Browse a Table 


Update a Record 


GJ ho 
| 


Add a Record 


Delete a Record 


Un ia 
i i 


Return to calling menu 


enter your selection _ 


60 





Personnel History Expenses 


- Browse a Table 
Update a Record 


- Add a Record 


Ha LA N E 
| 


- Delete a Record 


5 - Return to calling menu 


enter your selection . 
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l2 


Travel Expenses 


l - Browse a Table 
2 - Update a Record 
3 - Add a Record 

4 - Delete a Record 


5 - Return to calling menu 


enter your selection — 
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Purchase Expenses 


- Browse a Table 


Update a Record 


UJ N ps 
, 


- Add a Record 
4 - Delete a Record 


5 - Return to calling menu 


enter your selection . 
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Data Base Income 


1 - OPTAR 

2 - Indirect 

3 "="QUIe E 

4 - Return to calling menu 


enter your selection . 
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OPTAR Income 


- Browse a Table 


- Update a Record 


LA hl HM 


- Add a Record 
4 - Delete a Record 


Return to calling menu 


LI 
' 


enter your selection _ 
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Indirect Income 


l - Browse a Table 
2 - Update a Record 
3 - Add a Record 

4 - Delete a Record 


5 - Return to calling menu 


enter your selection . 


66 


Other Income 


- Browse a Table 


Update a Record 


LA N p 
I 


- Add a Record 
4 - Delete a Record 


5 - Return to calling menu 


enter your selection _ 
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Inventory Property 


l - Browse a Table 
2 - Update a Record 
3 - Add a Record 

4 - Delete a Record 


5 - Return to calling menu 


enter your selection _ 
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Reports 


l - Personnel 

2 - Purchase 

3 - Financial 

4 - Travel - Outstanding TO(s) 


5 - Return to calling menu 


TURN THE PRINTER ON enter your selection _ 
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Personnel Reports 


1 - Personnel Funding 
2 - Personnel History 


3 - Return to calling menu 


enter your selection . 
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Purchase Reports 


l - Requisition Status 
2 - Quarterly Inventory 


J - Return to calling menu 


enter your selection 
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APPENDIX D 


SAMPLE AS SYSTEM REPORTS 


Outstanding TO(s) 


DEPARTHENT OF ADMINISTRATIVE SCI=SUCES 


REPORT: OUTSTASDING TO(s) 


COST CODE 


EGDO5 
EGDOS 
EGDOO 
EGDOO 
ESDOO 
EGDOO 
ESDOO 
EGDOO 
EGDOO 
EGDOO 
EGDOO 
EGDOO 
EGDOO 
ESDOO 
EGDOO 
GUCTN 
GUCTN 
NONE 

NONE 

RCAZ2 
RCAZ2 
RCAZ2 
RCAZ2 
RCFCF 
RGECE 
RCFCF 


RCFCE 


DOC 3 


6TOA2226 
6TOA2227 
6ITA3361 
6TOA3350 
6T0A3352 
617A3351 
6TOA3353 


"6TOA3354 


6TOA3355 
6TOA3361 


'6T0A3356 
. 6TOA3357 


6TOA3358 
6ITA3359 
6ITA3360 
6TOA 4820 
6TOA4821 
851201 

351202 


6TOA7002 


6TOA7001 
6TOA7003 
6TOA7005 
6TOB7725 
6TOAT77 27 
6TOB77 26 


6TOB77 27 


REQUESTOR 


Coffey 
Coffey 
esc 

Greer 
Schneidewind 
Suchan 
Mackay 
Landeros 
Bale 

Elam 
Straub 
widmeyer 
Conger 
Pracht 
Schocken 
Haag 

Bui 
Evered 
dc'lasters 
Lapatra 
aUDDENBERG 
LaPatra 
Jones 
Creignton 
Creignton 
Creighton 


Creighton 


Page 1 
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REPORT DATE: 
REVISION DATE: 


CLAIA 


- -0 

- -0 

- -0 
85-11-12 
85-12-02 
85-12-13 
85-01-29 
86-02-11 
86-02-19 


s 
" 
e e e e e e 


85-11-25 
- -0 
- -0 
- -0 
85-11-20 
85-12-04 
85-12-12 
86-01-29 
- -0 


0 
MS 
0 


03/10/36 


DOV 7 


X3559 


X4744 


X5185 
X5374 


X31698 
43524 
X47 43 


- 2 : - e > 
ML AAA APA we E 





Ss - SR 


JEPART.1ZHNT OF AOAINISTRATIVE SCIENCES 


REPORT: PERSONNEL POUNDING 


SAME 


Allen, ‘lonique 


Balesteri, Angela 


Personnel Funding 


FUND FROM PMD TO 


85-10-14 
83-10-15 
85-11-11 
89-11-12 
83-11-28 
85-11-29 
83-12-08 
89-12-25 
33-12-26 
86-01-01 
36-01-02 
86-01-06 
86-01-09 
86-01-20 
86-91-21 
86-02-17 
36-10-01 
35-10-01 
35-10-14 


85-10-15 


85-11-11 
85-11-12 
35-11-28 
85-11-29 


- -0 

- -0 
85-10-14 
85-11-10 
83-11-11 
85-11-27 
85-11-28 
85-12-07 
33-12-24 
85-12-25 
39-12-31 
86-01-01 
86-01-05 
86-01-08 
86-01-19 
86-01-20 
86-02-05 
36-02-17 
85-10-13 
35-10-13 
85-10-14 
85-11-10 
85-11-11 
89-11-27 
85-11-28 
85-12-22 


IRS/WE 


o oc O O o Qo, QO QOQ QOQ Q O Q Q Q Q Q Q o 


OAYS 


01 


01 


' O1 NN 
06 :'. 


01 
04 
01 at 
02 
03 
09 
01 


01 
09 
06 
01 
12 
01 
08 
01 
10 


fage L 
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HOURS COST CODE 


o o Q Q O 019 Q o Q Q O d Q e o QO Q Q Q 


aLQZP 


ao ww a ww ww a a a A 1A 4 a p a Aa @ wo a a 


REPORT DATE: 

RATE AHOUUT 

3 0.09 3 0.00 
$ 9.00 3 0.00 
0.00 3 0.00 
0.00 $ 1362.49 
0.00 3 0.00 
0.00 $ 860.52 
0.00 $ 0.00 
0.00 $ 430.26 

- 0.00 $ 860.52 
0.00 $ 0.00 
0.00 $ 286.84 
0.00 $ 0.00 
0.00 $ 143.42 
0.00 5 0.00 
0.00 $ 645.39 
0.00 3 0.00 
0.00 $ 860.52 
0.00 $ 0.00 
0.00 $ 345.39 
0.00 $ 545.40 
0.00 $ 0.00 
0.00 $ 1090.30 

$ 0.00 3 0.00 
$ 0.00 $ 727.20 
3 0.00 5 0.00 
$ 0.00 $ 909.00 


03/10/86 





| 
: 


Personnel History 


JEPAIT. ET 22? AQIIZISTAAZIVE 30C122CZ23 
REPORT TITLE: ?ERSO'MIZL IISTORY 


GAME 

Allen, ‘ionique 
Jalesceri, Angela 
8uttlee-diller, Beth 
Cochrane, Candi 
Covington, Marla 
Davis, Helen 


Dickey, Laurence 


George, Zaren 


souveia, Cynthia of 
Howard, LaVerne 
Jumphreys, We 
Hutchings, Rensxe 
james, greca 

iocher, E 
frauthammer, “illiam 
Lathrop, “ary Ellen 
Lindsay, Caryl 


Lindstrom, Jodie 


JOB TITLE 

Research Technician 
Zaitorial Asse. (Typ 
Management Assistant 
aesearch Technician 
Travel Clerk (Typing 


Statistician (Ops. 4 


Pa e $ 


Support Services Sup ` 


Technical anuals 4t 
Copier/Duplicating 9 
Clerk-Typist 
SEE ` 
Research Technician 
cletketcypist ` ^ 
Labor Zconomist 
Social Services Aid 
Social Science Analy 


Computer Programmer 


Secratary (Typing) 


SERIES 
303 
1087 
344 
303 
2132 
1330 
342 
1083. 
330 
322 
322 
303 
322 
110 
3186 
101 
334 


330 


GRADE 


Pege 1 
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STEP. ?D0 
1 A06S6 
3  A0$05 
lY A0140 
1 aAlo6s 

10 40487 
To A0836 
l —A0871 

"1. A2085 
l' A1037 
a A1078 


$ ao = 


A0 488 
1: A0938 
i a1144 
3 A0496 
1 A0671 
1 A0497 
1 A0490 
1 A0379 


BILLETS ZIPIRE 


918g 
304g 
827g 
954q 
1359 
$774 
881g 
913g 
843g 
261g 
1349 
896g 
2629 
SEI 
3643 
8623 


939 


893g 


36-09-30 


36-09-23 


36-08-31 


36-49-30 


wo 


846-10-91 


36-03-14 


36-10-10 


87-01-11 


36-06-02 


86-03-26 


86-07-21 


37-01-02 


86-97-01 


86-06-30 


REPORT YATE: 33/10/46 


NORK OMIT 


Func.Skill 


Sticht 


San Miguel 


Dickey 


Euske 


i 
JOIE DIREC? 


| 





Quarterly Inventory 


DEPART'IENT Of ADAiIUISTAATIVÉZ SCIZNCZS REPORT SATE: 03/10/34 
REPORT: QUARTERLY INVENTORY 
PAG Vendoz Description Serial? 
?09 Cost Received Issue Locacion 
1 TSN PDeJR CELUI 
1111 $ 1000.90 11-11-11 ADARS . I-270 
222 HOWETTELL COHPUTTR 22222 
2222 $ 2000.00 - «-22 3AKER 1-280 
333 es? y TEST DESC ` 3333 
333 $- 3333.00 33-33-33 CARSON - : , 1-9-1 





75 


QJYTPAJIT4ZZT OP ADGINISTRATIVZ SCIZYCZS 
REPORT: 3*QUISITION STATUS 


RDD DOC 3 
DESCRIPTION 


= E Q 
Clipper for ibm pa 


- we 8 T 

e e] 5204-3140 
7TSpe Dispenser, 3° 

- ag 5219-9664 


Requisition Status 


Report to Judy 4orscco,Nawal Zducation 6 Trsining 


- e H 5221-7506 
Pyxel Visuals 
- =- 9 3235-7508 


REPORT? DATS: 
RSVISIOU DATE: 


03/19/; 


i 


COSTCODE POs VEUDOR 
STOCZ 6 REQUESTOR 
e 3 AS. sue conger 
mE y " central point softvare È i 
Te. D james = 1 | 
- 8 - ta? ` a à e e " : | 
a el D  montrey bay coaputecvorks 
8 m e lyons S e 
= a. ot. Sei 
RfXCS1 : . a Ready Supply 
7520-00-240-2417 Joelson 
RWOS1 Pederal °xpress 
RLPEE 85-4-4828 Pyzel Applicaitons 
ALPEE 85-Y-1587 Computerland 


Caple to connect IB4-pC tp Daisywriter Printer 
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DATA BASE REPORTING SYSTEM 


PROGRAMMER'S MANUAL 


TABLE OF CONTENTS 


BACKGROUND --------------------2-2-2-2----------- 
DATA BASE ADMINISTRATOR --------------------- 
SYSTEM DESIGN ------------------------------- 
A. PRIMARY DESIGN GOALS -------------------- 
B. PROCESSING LOGIC ------------------------ 
APPLICATION LANGUAGE ------------------------ 
SCREEN INPUT/OUTPUT MANAGEMENT -------------- 
FILES ------------------2-2--2-2-2.-2--2-2-2--2---------- 
A.  PERFORM FILES --------------------------- 
B. ERROR AND MESSAGE FORMS ----------------- 
C. FORMS ----------------------------------- 
DE EE AA 
E. HMENUS ----------------------------------- 
F. TABLES ---------------------------------- 
DATA MANAGEMENT ----------------2-2-2-2-2-2-2------- 
AS SYSTEM REQUIREMENTS ---------------------- 
A. REFERENCES ------------------------------ 
B. SOFTWARE -------------------------------- 
C. HARDWARE ---------------------2-22-222-2-2-2-2-- 


77 


I. BACKGROUND 


The Administrative Sciences (AS) Data Base Reporting 
System (the AS System) is an interactive, menu driven data 
base management system. This system is used to input, edit 
and store the U.S. Naval Postgraduate School's Administra- 
tive Sciences Department's financial data (i.e., the AS 
Department's OPTAR, data relative to tne AS Department's 
indirect cost and research accounts, and tne Department's 
equipment inventory) and to create financial reports. This 
manual is not a tutorial of the AS System's application 


language. 


II. DATA BASE ADMINISTRATOR 


The AS Department's Management Assistant is the AS 
System's Administrator and Data Base Administrator (DBA). 
The duties of the DBA includes defining data taoles and 
structures, data security, program and systems modifica- 
tions, system documentation and user training. All request 
or suggestions for changes and major problems must oe refer- 
red to the System's Administrator. 
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TITE SMSTEM,DESIGN 


The AS System performs data manipulation and renort 
generation, and has been designed along these two functional 
paths. Appendix F, the AS System's data flow diagram de- 
tails the two functional paths.  Prototyping was used; first 
perform the data manipulation for one table and the report 
generation for one report, then use similar logic for the 
otner tables and reports. 


A. PRIMARY DESIGN GOALS 
The following were tne primary design goals for AS 
System: 


- error detection and correction 

- ease in modifying programs 

- data entry editing 

- ease in entering, storing and modifying data 

- ease in creating reports 

- ease in operating the system 

- ease of adding follow-on features (i.e., soreadsneets, 
graphics, etc.) 


In an attempt to accomplish the above goals, the majori- 
ty of tnis System's modules deal with the interface between 
the user and the data, instead of computations upon tne 
data. Due to tnese design goals, the System's structure 
chart, Appendix G, displays a great deal of higner level 
fan-out and minimal lower level fan-in. 


B. PROCESSING LOGIC 
The following is the standard processing logic of the 
perform files (modules): 


EG Change the necessary K-Man environment vari- 
ables. 
2. . Receive passed data from a calling module. 
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Determine if user wants to exit module. (Will be 
no on first entry into module.) If no - perform 
step 4. If yes - perform step 8. 
Display and accept input from a menu. 
Error check the menu input. 
Display and accept input from an 
error form and repeat step 5 (If menu 
entry was an error.). 
Perform function of module or call a 
subordinate module. 
Repeat step 3. 
Ensure that the changed K-ilan environmental 
variables are set to the default values. 
Change the necessary variable to ensure that a 


blank appears at the calling menu's prompt. 
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IV. APPLICATION LANGUAGE 


The application language used for the AS System is 
KnowledgeMan (K-Man), version 1.07; which is developed by 
Micro Data Base Systems, Inc., Lafayette, Indiana. Know- 
ledgeMan is a database management system which is designed 
to operate on a microcomputer. The AS System uses the fol- 
lowing KnowledgeMan capabilities: 


- Data Management 

- Screen Input/Output Management 

- Printed Forms (Reports) Management 
- Procedures 


Future development of the AS System can accommodate the 
following: 


- Statistical Analysis 

- Spreadsheet Analysis 

- Calculations 

- Functions 

- Graphics | 

- Integration with other financial packages; i.e. IFPS 


V. SCREEN INPUT/OUTPUT MANAGEMENT 


The AS System uses predefined forms for menus, data 
entry and data display. Menus and data entry/display forms 
prompt the user for entries. The AS System is deSigned for 
a novice user, therefore prompts and instructions are uti- 
lized instead of command entries. Each menu and data 
entry/display form also edits the user's input by using 
KnowledgeMan's "picture" capability. If a wrong entry is 
made, an error form is displayed that notifies the user of 
an error and prompts for a correct entry. Appendix 8 is 
a hierarchical chart of the AS System's menus and Appendix C 
contains each system menu. 


81 


XnowledgeMan's optional interactive forms painting 
component (K-Paint) was used to create the System's menus 
and entry/display forms. The X-Paint files are included 


with tne AS System's K-Man files. 


32 


The foll 


System: 


STENE =-= 


Ne 


LGU => 
hice —— 
A 


OVL -- 
DOE 


PERFORM 
The foll 
orwtable 
crtrecrd 
dbmen 

deltrecl 
deltrec2 
expenmen 
incommen 
indirdit 
indirmen 
indirupd 
invendlt 
invenmen 
invenrpt 
invenupd 


VI. FILES 





owing file name extensions are used by the AS 


a K-Man execute file 

context file, which saves a former state of 
K-Man processing in an encrypted format so tnat 
it can be resumed later (menus and forms) 
user/password security file (a K-Man file) 
include file (a X-ian file) 

perform file, which holds a sequence of X-ilan 
commands (except for forms and menus, the code 
for these files is contained in Appendix J) 
K-Man overlay files 

report templates (created with K-Report) 


FILES 

owing are the AS System's perform files: 
outstrpt 
persdmen 
pfunddit 
pfundmen 
pfundrpt 
pfundupd 
phistdlt 
phistmen 
phistrpt 
phistupd 
prprtmen 
purchdlt 
purchmen 
purchupd 
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mainmen purrtmen 
optardlt reprtmen 
Optarmen requsrpt 
optarupd travimen 
otherdlt tvlexdlt 
othermen tvlexupd 
otherupd updrecrd 


Naming convention: 

E *.ipf -- ( * - function performed) 

- *men.ipf -- ( This file displays a menu and perform a 
Selected option. * = function selected or 
table requested) 

- #dlt.ipf -- ( This file is required to delete a record 
from a table. * = taole's name) 


- *rpt.ipf -- ( This file creates a report. * = report's 
name) 
- *upd.ipf -- ( This file is required to update a record 


in a table. * = table's name) 
The above files were created with a text editor. Listings 
of the perform files are contained in Appendix I. 


B. ERROR AND MESSAGE FORMS 
The following are the AS System's error and message 
forms: 
- delerfrm(.icf s .ipf) 
- erlindir(.icf & .ipf) 
- er2indir(.icf & .ipf) 
- eroinven(.icf & .ipf) 
- erooptar(.icf & .ipf) 
- eropfund(.icf & .ipf) 
- erophist(.icf & .ipf£) 
- erotvlex(.icf & .ipf) 
& 


—- errorfrm(.icf IDE) 
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Naming convention: 
- ero*.(.icf or .ipf) -- ( * s table's name) 
The above files were created, and may be viewed, by using K- 


Daun 
C. FORMS 

The following are the AS System's forms: 
deletfrm tabldfrm 
delqsfrm trpldfrm 
indelfrm pfdelfrm 
indincnt pfundcrt 
indirdel pfunddel 
indirect p£unding 
inupdfrm p£updfrm 
invencrt phdelfrm 
invendel phistcrt 
inventor phistdel 
ivdelfrm phistory 
ivupdfrm phupdfrm 
opdelfrm pudelfrim 
optar purchase 
optarcrt purcucrt 
optardel purchdel 
opupdfrm puupdfrm 
otdelfrm tvdelfrm 
other tvlexcrt 
othercrt tvlexdel 
otherdel tvlexp 
otupdfrm tvupdfrm 
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Naming convention: 


All of the above files 


"ICE! 


are 


The 


The 


viewed, by using K-Report. 


files are saved 
performed by an AS 
*cmE. 
*delfrm. 
*del. 


*.(icf & ip£f)-- 


xupdfrm. 


have an .icf or .ipf extension. The 
for K-Paint usage. The ".ipf" files 
System module (file). 


(A form on which a user enters 
data to create a record -- an 
entry form. * = table's name) 

(A form on which a user enters a 
field's value that is used to 
select which record may be dele- 
ted. * = table's name) 

(A form that display's a record 
that may be deleted -- a deletion 
form. * = tadle's name) 

(A form that displays a record 
when a user elects to browse a 
table or update a record --9w 
entry form. * = taole's name) 

(A form on which a user enters a 
Field's value that is used to 
select which records may be updat- 
ed. * = table's name) 


above files were created by using X-Paint. 


REECH 


The following are the AS System's reports: 


invenrpt.tpl -- Quarterly Inventory 


outstrpt.tpl -- Outstanding TO(s) 
p£undrpt.tpl -- Personnel Funding 
phistrpt.tpl -- Personnel History 
requsrpt.tpl -- Requisition Status 


above files were created, and the structure may be 
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MENUS 


The following are the AS Systems menus: 


expenfrm 
incomérm 
indirfrm 
invenfrm 
mainfrm 

optarfrm 
otherfrm 
persdfrm 


Naming convention: 


*žfrm. (icf & ipf) 


pfundf rm 
phistfrm 
mere rm 
purchfrm 
purrtfrm 
reprtfrm 
travirm 


~- ( * = the subject table or purpose 
of menu; i.e. pnistfrm is the menu 
tor the pnistory table) 


above files were created by using X-Paint. 


The 
F. TABLES 
The following are 

- indirect.itb -— 
- inventor.itb -— 
= optarvitb =- 
- other.ito - 
- pfunding.itb -— 
- pnistory.ito -- 
- purchase.ito =- 
- tvlexp.ito -— 

The above taoles were 

language. 


the tables for the AS System: 
Indirect Income 

Inventory Property 

OPTAR Income 

Other Income 

Personnel Funding Expenses 
Personnel History Expenses 
Purchase Expenses 

Travel Expenses 


created by using K-Man's command 
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VII. DATA MANAGEMENT 


The AS System's data is organized into tadles. Each 
field within each table has a specific size and type (nume- 
ric, string or logical). Each file has a "picture", which 
KnowledgeMan uses to edit a field's value. The formats of 
the AS System's tables are contained in Appendix J and the 
field definitions are contained in Appendix H. Because the 
AS System's users had previously used KnowledgeMan in an ad 
hoc query mode, and to decrease processing time, tnis is not 
a relational data base; there is a duplication of data 
oetween some tables. 

User access may be limited to tables and fields witnin 
tables. The use of this data security capability is the 
responsibility of the DBA. 
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VII. AS SYSTEM REQUIREMENTS 


A. REFERENCES 
The following references are necessary for successfully 
programming the AS System: 
- KnowledgeMan Reference Manual 
- Interactive Forms Painting (K-Paint); Supplement #1 to 
the KnowledgeMan Reference Manual 
^ - Full-Screen Text Processor (K-Text); Supplement #2 to 
the Knowledgelan Reference Manual or another text editor 
- Custom Report Generation (K-Report); Supplement #5 to 
the KnowledgeMan Reference ilanual 


The following references are helpful for successfully 
programming the AS System: | 
- Disk Operating System (version 2.1) by Microsoft Corp. 
- The Beginner's Guide to XnowledgeMan 
- Discovering KnowledgeMan; published by the Howard Sams 
Co., Indianapolis 
- The Book of KnowledgeMan; by Gilbert M. Roeder 


B. SOFTWARE 
The following software is required for overating the AS 
System: | | 
- DOS, version 2.1 -- The CONFIG.SYS file must have 

buffers Set to at least 10. The 
AS System has buffers=ll. Each 
additional puffer cost an addi- 
tional 528 bytes of memory, but 
may result in faster processing. 


89 


Note -- A diskette has been provided to the DBA which" 
contains DOS version 2.1 and the following commands in 
AUTOEXEC.BAT: 

Ce 

SETCLOCK 

PATH C:\AS\KMAN 

CDC: NASA SYSTEM 

(With the current equipment, the AS Systen's files are 
stored in drive "C", sub-directory NASNSYSTZM. nae 
ledgeMan, K-Paint, K-Report and K-Text are stored in "C" 
drive, sub-directory \AS\KMAN.) 


- K-Man, version 1.07 (PCDOS, I3 PC) 

- K-Paint, version 1.07 (PCDOS, IB PC) 

- K-Report, version 1.07 (PCDOS, IBH PC) 

- K-Text, version 1.07 (PCDOS, IBM PC) or another text 
editor  (Kedit was used to create this system's perform files 


C. HARDWARE 


- Minimum RAH of 192K 
- Minimum mass disk storage of 500K 
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APPENDIX F 
DATA FLOW DIAGRAM 
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APPENDIX G 
STRUCTURE CHART 


This appendix contains the structure chart of the AS 
System's perform files (.IPF). All modules are numbered, 
except the menus and forms. The modules that are called by 
several other modules are connected via a small box which 
contains a roman numeral. All modules are called condition- 


ally. 
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APPENDIX H 
DATA DICTIONARY 


DATA DICTIONARY 


Format of elements: Name, allowable values, format description, 
files inwhich the element is used (.IPF files unless noted), 
and read and write access (DBA has table matching access codes 
to individuals). 


Allowable values; num = numeric, str = string, logic = logical. 


Format; d place nolder for a digit or a sign. 
r placeholder for any ASCII character. 
$5r = rrrrr; repeat tne code the numper of times as 
tne number 
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m NL a mm xx a» 





COND NUM 0, lor 2 A variable used to determine 
which condition has been selected by a user for either up- 
dating or deleting a record from a table. (0 = only 1 con- 
dition displayed by updating or deletion form, 1 = lst 
condition was selected and 2 = 2nd condition was selected) 
DELTRECl, DELTREC2, INDIRUPD, INVENUPD, OPTARUPD, OTHERUPD, 
PFUNDUPD, PHISTUPD, PURCHUPD, TVLEAUPD, UPDRECRD 


DELTANS STR (Y,N,y,n) A variable which determines 
if a user is sure that a record is required to be deleted. 
DELERFRM, DELERFRM.ICF, DELQSFRM, DELOSPRM.ICF, DELTRECI 


DELTVAR STR or NUM A variable which is used to 
determine which selection criterion is used to delete a 
record. (DELTVAR equals a specific field's value.) 
DELTREC2 


ENTRYONE STR or NUM A variaole wnich is updated 

by entering data onto to a update or deletion selection 
form or an error form. The only records tnat will oe dis- 
played contains a field's value tnat matcnes ENTRYONE. 
(i.e. ENTRYONE "Smith" will only display records that 
contains LNAME "Smith") 
ERIINDIR(.IPF & .ICF), ER2INDIR(.IPF & .ICP), 
EROINVEN(.IPF £ .ICF), EROPFUND(.IPF & .ICF), 
EROOPTAR(. IPF & .ICF), BROPHIST(.IPF $ .1CF), 
EROTVLEX(.IPF & .ICF), | 


INDELFRM(.IPF & .ICF), INDIRDLT, INDIRUPD, 
INUPDFRM(.IPF & .ICP), 


INVENDLT, INVENUPD, IVDELFRM(.IPF & .ICF), 
IVUPDFRM(.IPF & .ICF), 


OPDELFRH(.IPF a .ICF), OPTARDLT, OPTARUPD, 
OPUPDFRM(.IPF & .ICF), 


OTDELFRH(.IPF & .ICF), OTHEHDLT, OTHERUPD, 
OTUPDFRM(.IPP & .ICF), 


PFDELFRA(.IPP & .ICF), PFUNDDLT, PFUNDUPD, 
PEUDDERMN.IPF @##.ICF), 


PHDOELERM(.IPF & .ICEF), PHISTDLIMEEPHIMPSTUPD, 
PHUPDFRM(.IPF & .ICF), 


PUDELFRM(.IPP & .ICF), PURCHDLT, PURCHUPD, 
PUUPDFRM(.IPF & .ICFP), 


TVDELFRM(.IPP & .ICF), TVLEXDLT, TVLEXUPD, 
BKS Lk EES $. ICF) 
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ENTRYTWO STR or NUM A variable wnich is updated 
by entering data onto to a update or deletion selection 
form or an error form. The only records that will se dis- 
Dlayed contains a field's value that matcnes ENTRYONE 
(i.e. ENTRYONE = "Smith" will only display records that 
contains LNAME = "Smith"). Used if there are two fields 
which may be used for updates or deletions.) 


ER2INDIR(.IPF & .ICF), EROINVEN(.IPP & .ICF), 
EROPFUND(.IPF & .ICF), EROOPTAR(.IPF & .ICF), 
INDIRUPD, INUPDFRM(.IPF & .ICF), | 
INVENDLT, INVENUPD, IVDELFRM(.IPF & .ICF), | 
IVUPDFRM(.IPF & .ICF), | 
| 
OPDELFRM(.IPF & .ICF), OPTARDLT, OPTARUPD, | 
OPUPDFRM(.IPF & .ICF), | 
OTYERUPD, OTUPDFRM(.IPF & .ICF), | 
PFDELFRM(.IPF & .ICF), PFUNDDLT, PFUNDUPD, | 
PPUPDPRM(.IPF & .ICF) | 
FORMANS STR (l,.2» 39 NEP OPES The displayed menu's 


option that is selected by tne user. 

BRNTABLE, CRTRECRD, DBFORM(.IPF & .ICF), 
ERRORFRi1(.IPF & .ICF), 
EXPENFRM(.IPF & .ICF), 
INCOMFRHM(.IPP & .ICFP), 


| 
DBMEN, DZLTRECI, 
EXPENMEN, 
INCOMMEN, 
INDIRDLT, INDIRFRM(.IPF 8s .ICF), INDIRMEN, INDIRUPD, 
INVENDLT, 


INVENUPD, 


INVENFRH(.IPF & 
MAINFRM(.IPF & 


TE) 
ICH); 


INVEMHEN, 
MAINHEN, 


INVENRPT, 


OPTARDLT, 
OTHERDLT, 
OUTSTRPT, 


PPUNDDLT, 
PFUNDUPD, 


PHISTDLT, 
PHISTUPD, 


PURCHDLT, 


PURRTFRM(.IPP & 


REPRTMEN, 


TRAVFRM(. 
UPRECRD 


OPTARFRA(.IPP & 
OTHERER IDEE 
PERSDAEN, 


ICON 
TO 


PHISTFRM(.IPF & 
PRPRTHEN, 


ICE 


PURECHFRII(.IPES TOE. 


SL GEN 
REQUSRPT, 


PURRTMEN, 


IPF & .ICF), TRAVLJUEN, 


1:46 


OPTARHEN, 
OTHERMEN, 


PPUNDMEN, 


PHISTMEN, 


PURCHMEN, 


REPRTER:1(.IPF & 


TVLEXDLT, 


OPTARUPD, 
OTHERUPD, 


PFUNDRPT, 


PR LE 


PURCHUPD, 


ICE), 


TVLEXUPD, 





INDIRECT.ASAPPRO - NUM Sddddd.dd 
EE INDIRECT, INDIRECT.ICP, INDIRCRT, 
INDIRCRT.IC", INDIRDELb, INDIRDEL.ICF 
Head ACCESS : Al e 
mE Ita ACCESS : A.....c0 0a. o... 


INDIRECT.AUTH NUM  Sddddddd.dd Total amount autnorized 
for research project. 
INDIRECT. ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 
Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLiHNOP 


INDIRECT.COSTCODE STR 35r Costcode or Joo Order #. 
EI Sy LNDIRECT, INDIRECT.ICF, INDIRCRT, 
ek ICH INBIESEELENDERDEL.ICF, UPDRECRD 
Read Access : AB3CDEFPGHIJAXLUNOP 
Write Access : ABCDEFGHIJXL:INOP 


INDIRECT.DEPTIC NUM Sddddd.dd Amount anticipated for 
indirect costs. 
INDIRECT.ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 
Read Access : ABCDEFGHIJXL:iNOP 
write Access : ABCDEFGHIJKLANOP 


INDIRECT. DOC# EE | Document 7. 
INDIRECT.ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Bead .Aceess : A... ossscceccccccs 
mete ACCESS 2: A. e e e REEL a e 


INDIRECT. ENTRY NUM dd-dd-dd Date the entry is made. 
INDIRECT. ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL. ICF 

Read Access : ABCDEFGHIJKLiINOP 
Jrite Access : ABCDEFGHIJKLINOP 


INDIRECT.ESTIMATE NUM  Sddddddd.dd Estimated cost of research. 
BNDIBRESQPEMPS, PNDPREGT, INDERECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read Access : ABCDEFGHIJXLANOP 
Write Access : ABCDEFGHIJKL:INOP 


Tom 


INDIRECT.ZXPIRE NUM  dd-dd-dd Date of expipation of funds. 
DELTREC2, INDIRECT.ITS, INDIRECT, INDIRECT.ICF, LASEP 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read Access : ABCDEFGHIJXLHNOP 
"rite Access : ABCDEFGHIJXALANOP 


INDIRECT.ICRECD NUM  Sddddd.dd Actual indirect costs re- 
ceived from project. 
INDIRECT.ITB, INDIRECT, INDIRECI.ICE, flee 1, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 
Read Access : ABCDEFGHIJKLANOP 
"rite Access : ABCDEFGHIJKLMNOP 


INDIRECT.MIPR+ STR Stär MIPR# from acceptance docu- 
ment. 
INDIRECT.ITB, INDIRECT, INDISECP.ICP, INDIRA 
INDIRCRT.ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ASCDEFGHIJKLANOP 
Nrite Access : ABCDEFGHIJKL:iNOP 


INDTREECT.PERTOD STR 320r Dates specified on proposal 
for verformance of research. 
INDIRECT.ITB, INDIRECT, INDIRECT. IC’, INDE SRI; 
INDIRCRT.ICF, INDIRDEL, Tipe seer 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 


INDIRECT.PRINCIPL STR  $20r Last name or principal inves- 
Ei gator. 
BRNTABLE, INDIRECT.ITS, INDIRECT, INDIRECT. ICE, TEEN 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF, UPDRECRD 
Read Access : ABCDEFGHIJKL:;ÓiNOP 
Write Access : ABCDEFPGHIJKLIINOP 


INDIRECT.PROPOSAL STR 3130r Title of proposal. 
INDIRECT.ITB, INDIRECT, INDIRECTA, ARTI 
INDIRCRT.ICF, INDIRDEL, INDIRDECS IGE 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLUNOP 
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INDIRECT.REF: SER 325r Reference + from acceptance 
document. 
PIDERECT.ITS, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 
Read Access : ABCDEFGHAIJKLMNOP 
Write Access : ABCDEFSHIJKLiINOP 


INDIRECT. REMARKS STR 350r Remarks. 
INDIRECT.ITB, INDIRECT, INDIRECT.ICP?, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLIINOP 


INDIRECT.SEGHMENT STR or Segment + 
MIDIRECT.IT3, DUDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Road Ageeso : A... 27 
luto 8 ae eeeee ee eege e 


INDIRECT.SERIALS NUM  dddd-dddd Serial # 
INDIRECT.ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read  Aeeess 2: Aso... ooososn. 
Nite Asecess : A...-9..... 


INDIRECT. SPONSOR STR 340r Name of project svonsor. 
INDERECTSTTS, ANDERSCT, IMDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL. ICF 

Read Access : ABCDEFGHIJZLANOP 
Write Access : ABCDEFGHIJKLHNOP 


INDIRECT.STAFFLBR NUM Sddddd.dd Total of support labor. 
INDIRECT.ITB, INDIRECT, INDEBECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read Access : ABCDEFGHIJKLAINOP 
Write Access : ABCDEFGHIJKL:iNOP 


INDIRECT.STATUS STR 225r Status of proposal. 
INDIRECT.ITB, INDIRECT, INDIRECT.ICF, INDIRCRT, 
INDIRCRT.ICF, INDIRDEL, INDIRDEL.ICF 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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INVENTOR.COST NUM  Sdddddd.dd 
INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL 
Read Access "© A«teee. ++ cso eee 
Write Access : A..... o.s TOE 


INVENTOR.DESCRIPT STR 350r 
INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL 
Read Access TUA.J o... i» S 
Write Access : A.... 9.7. 8105 


INVENTOR.ISSUE STR 3295r 
INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL 
Read Access : AA... a... a 
Write Access : A 


INVENTOR.LOCATION STR 37r 
INVENTOR. ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICP, INVENRPT.TPL 
Read Access : Al... .-.. ore 
Write Access : AT... s ener 


INVENTOR.PA# ` STR 361 
BRWTABLE, DELTREC2, INVENTOR. ITB, INVENTOR, INVENEOR TON 
INVENCRT, INVENCRT.ICF, INVENDEL, INVENDEL.IGFE, 
INVENRPT.TPL, UPDRECRD 
Read Access : A.....a... OI 
Write Access : Ac... 995: «c m 


INVENTOR. PO? STR 39r 
INVENTOR. ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICP, INVENRPT.TPL 
Read Access : A..... 255 a 
Write Access : A.... m m 


INVENTOR.RECEIVED NUM  dd-dd-dd 
INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL 
Read Access : Aresa 
Write Access : A.... Tom 
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i 
| 
i 


INVENTOR. SERIAL# STR 312r 
DELTREC2, INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL, 
UPDRECRD 
Sande AGGeSss : AWM.....4 oc c e 
Write Access : 


Agos ON . Fa 


INVENTOR. VENDOR STR %40r 
INVENTOR.ITB, INVENTOR, INVENTOR.ICF, INVENCRT, 
INVENCRT.ICF, INVENDEL, INVENDEL.ICF, INVENRPT.TPL 
R@aderAeccesse : Acce WB ccc ccc cee 
ua te Access : A...o ome... . e 


OPTAR. ACTUAL NUM Sdddddd.dd Changes in autnorized. 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICF, 
OPTARDEL, OPTARDEL.ICF 

Bade ACCESS 2: A........- e... 
Hae ACCESS : Adi... .eoono.cs.s. 


OPTAR.AUTH NUM  Sdddddd.dd Total amount authorized. 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICF, 
OPTARDEL, OPTARDEL.ICF 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJKL:INOP 


OPTAR.DIFFER Virtual field : ((ACTUAL - AUTH) ) 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICF, 
OPTARDEL, OPTARDEL.ICF | 

Read Access =: AW Ee 


OPTAR. ENTRY NUM dd-dd-dd Date that record is entered. 
DELTREC2, OPTAR.ITS, OPTAR, OPTAR.ICF, OPTARCRT, 
OPTARCRT.ICFP, OPTARDEL, OPTARDEL.ICF, UPDRECRD 

Read Access : ABCDEFGHIJKXLANOP 
Write Access : ABCDEFGHIJKL/NOP 


OPTAR.RECEIVED NUM  dd-dd-dd Date of latest authorization 
memo. 
BRWTABLE, DELTREC2, OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, 
OPTARCRT. ICF, OPTARDEL, OPTARDEL.ICF, UPDRECRD 
Read Access : ABCDEFGHIJKLUNOP 
Write Access : ABCDEFGHIJKLMNOP 
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OPTAR.TACTUAL NUM Sdddddd.dd Changes in travel authorized. 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICF, 
OPTARDEL, OPTARDEL.ICF 

Read Access : A..... 0 0 
"Write AGGCOSS.: Ale. DD. . eee 


OPTAR.TAUTH NUM  Sdddddd.dd Amount designated for travel. 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICr, 
OPTARDEL, OPTARDEL.ICF 

Read Access : ABCDEFGHIJKLANOP 
Nrite Access : ABCDEFGHIJKL.INOP 


OPTAR.TDIFFER Virtual field : ((TACTUAL - TAUTH)) 
OPTAR.ITB, OPTAR, OPTAR.ICF, OPTARCRT, OPTARCRT.ICF, 
OPTARDEL, OPTARDEL.ICF 

Read Access 2: A..... 4 o mars. 


OTHER.AUTH NUM Sdddddd.dd Amount authorized for 
Department Expenditure. 
OTHER.ITS, OTHER, OTHEK.TCEFL.OTHSSSST, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : ABCDEFGHIJKLHNOP 
Write Access : ABCDEFSHIJKLMNOP 


OTHER.COSTCODE STR 351 Costcode or Job Order +. 
OTHER. ITB, OTHER, OTHER.ICP; OTHER CRD, 
OTYERCRT.ICF, OTYERDEL, OTHERDEC.ICP, UPSDBECAD 
Read Access : ABCDEFGHIJKRLANOP 
Write Access : ABCDEFGHIJKLANOP 


OTHER. Bay NUM dd-dd-dd Date the entry is made. 
OTHER.ITB, OTHER, OTHER.ICF, OTHERERT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : ABCDEFGHIJKLiIINOP 
write Access : ABCDEFGHIJKLHNOP 


OTHER. EXPIRE NUM dd-dd-dd Date of expiration of funds. 
DELTREC2, OTHER.ITB, OTHER, OTHER. ICF, OTIZRCRD 
OTHERCRT. ICF, OTHERDEL, OTHERDEL. ICF 
Read Access : ABCDEFGH IJKLINOP 
Write Access : ABCDEFGHIJKL:INOP 
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OTHER.PRINCIPL STR 320r Last name of principal 
invesigator. 
BRWTABLE, OTHER.ITB, OTHER, OTHER.ICF, OTHERCRT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL.ICF, UPDRECRD 
Read Access : ABCDEFGHIJKL:AINOP 
Write Access : ABCDEFGHIJKLUNOP 


OTHER. PROPOSAL STR %130r Title of proposal. 
OTHER.ITB, OTHER, OTHER.ICF, OTHERCRT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL. ICF 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJKLHNOP 


OTHER. REMARKS STR 350r REMARKS 
OTHER.ITB, OTHER, OTHER.ICF, OTHERCRT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL.ICF 

Read Access : ABCDEFGHIJALANOP 
Write Access : ABCDEFGHIJ&ALANOP 


OTHER. SPONSOR STR 335r Name of project sponsor. 
OTHER. ITB, OTHER," GTHER. TCF OTHERCRT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : ABCDEFGHIJKLNOP 
Write Access : ABCDEFGHIJKLHNOP 


OTHER.STATUS STR 325r Status of funds. 
OTHER.ITB, OTHER, OTHER.ICF, OTHERCRGT, 
OTHERCRT.ICF, OTHERDEL, OTHERDEL. ICF 

Read Access : ABCDEFGHIJKLIINOP 
Write Access : ABCDEFGHIJKLHNOP 


PASSCOND NUN 0, l or 2 A variable used to determine 
which condition has been selected by a user for deleting a 
record from a table. (0 = only 1 condition displayed by 
deletion form, 1 = lst condition was selected and 2 = 2nd 
condition was selected) 

DELTREC1, INDIRDLT, INVENDLT, OPTARDLT, OTHERDLT, 
PFUNDDLT, PHISTDLT, PURCHDLT, TVLEADLT 


PASSVAR STR or NU A variable which is used to 
determine which selection criterion is used to delete a 
record. (DELTVAR equals a specific field's value.) 
DELTREC1, INDIRDLT, INVENDLT, OPTARDLT, OTHERDLT, 
PFUNDDLT, PHISTDLT, PURCHDLT, TVLEXDLT 
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PASTABLE STR The name of a table tnat 
have a record deleted from it. 
DELTREC1, DELTREC2 


PFUNDING.AMOUNT NUM  Sddddd.dd SAmount charged to costcode. 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : ABCDEFGHIJKL:iNOP 
Write Access : ABCDEFGHIJKLMNOP 


PFUNDING.CODE STR  $3r Department Code 
PFUNDING.ITS8, PPUNDING, PFUNDING.ICF, PFUNDCAT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF 

Read Accesso: A... . 2 ENEE 
Write Access : 


PAA wm GG LENG SA 


PFUNDING.COSTCODE STR %5r Costcode or Joo Order? 
PFUNDING.ITS, PFUNDING, PFUNDING. ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PEFUNDRPI Gees 

Read Access : ABCDEFGHIJXLANOP 
Write Access : ABCDEFGHIJKLANOP 


PFUNDING.DAYS STR 35r + of days. 
PFUNDING.ITS, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : ABCDEFGHIJALHMNOP 
Write Access : ABCDEFGHIJKXLUNOP 


PFUNDING.ENTRY NUM  dd-dd-dd Date of item entry. 
PFUNDING.ITS, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL.ICF 

Read Access : ABCDEFGHIJRLHNOP 
Nrite Access : ABCDEFGHIJKL:ANOP 


PFPUNDING. FNAME STR 515r Full first name. 
PFUNDING. ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PPUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLHMNOP 
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PFUNDING.FUNDFROM NUM  dd-dd-dd Date funding: began. 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJALANOP 


PFUNDING.FPUNDTO NUM | dd-dd-dd Date funding ends. 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLiINOP 


PFUNDING.HOURS NUM d 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT. TPL 
Read» Aecess : A. MA .... «Hi 
to Recess 2 Al «ss 


PFUNDING.HRSWK NUM dd Hours per week. 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Reade«Mecess : A69... ors 
Motel ACCESS : A. oake cums nio e e o 


PFUND ING. LABOR?# NUM  dd-dd-dd Date of funding memo. 
DELTREC2, PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, UPDRECRD 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJXLIINOP 


PFUNDING.LNAME STR 325r Full last name. 
BRWTABLE, DELTREC2, PFUNDING.IT8, PFUNDING, PFUNDING.ICZ, 
PFUNDCRT, PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, 
PFUNDRPT.TPL, UPDRECRD 
Read Access : ABCDEFGHIJKLiINOP 
Write Access : ABCDEFGHIJKLANOP 


PFUNDING. RATE NUM Sddd.dd Pay rate. 
PFUNDING.ITB, PFUNDING, PFUNDING.ICF, PFUNDCRT, 
PFUNDCRT.ICF, PFUNDDEL, PFUNDDEL.ICF, PFUNDRPT.TPL 

Read Access : A...ccc 000000000 
ante “ACCESS : Aloe. . los ..9 
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STR $4r Billet# 
PHISTORY, PHISTORY.ICF, 
PHISTDEL, PHISTDEL.ICF, 

ABCDEFGHIJXLANOP 


ABCDEFGAIJKLMNOP 


PHISTORY.BILLET+ 
PHISTORY. ITB, 
PHISTCRT.ICF, 

Read Access : 
Write Access : 


NUM  dd-dd-dd Date of 

PHISTORY, PHISTORY.ICF, 

PHISTDEL, PHISTDEL. ICF 
ABCDEFGHIJKRLANOP 
ABCDEFGHIJKLANOP 


PHISTORY.DOB 
PHISTORY.ITB, 
PHISTCRT.ICF, 

Read Access : 
Write Access : 


PHISTORY.EFFECTIV NUM  dd-dd-dd 
changes. 
PHISTORY.IT3, 
PHISTCRT.ICF, 

Read Access : 


"rite Access : 


PHISTORY, PHISWSNT.IGT, 

PHISTDEL, PHISTDEL. ICF 
A3CDEFGHIJXLINOP 
ABCDEFGHIJKLINOP 


dd-dd-dd 
PHISTORY, PHISTORY.EICF, 
PHISTDEL, PHISTDEL.ICF 

ABCDEFGHIJKLHNOP 

ABCDEFGHIJ&LANOP 


PYISTORY. ENTRY NUM 
PHISTORY.ITB, 
PHISTCRT,ICFE, 

Read Access : 


Write Access : 


PHISTORY.ES NUM 
set for performance review. 
PHISTORY.IT3, PHISTORY, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL. ICF 

Read Access : ABCDEFGHIJKLMNOP 
"Write Access : ABCDEFGHIJKLiINOP 


PUISTORY. EXPIRE NUM 
porary appointments. 
PHISTORY.ITB, PHISTORY, 
PHISTCRT.ICF, PHISTDEL, 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 


STR 315r 
PHISTORY, 
PHISTDEL, 
ABCDEFGHIJKLMNOP 
ABCDEFGHIJKLMNOP 


PHISTORY . FNAME 
PHISTORY.ITB, 
PHISTCRT.ICF, 

Read Access : 
Write Access : 
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PHISTORY.ICF, 


dd-dd-dd Date of 


PHISTORY IEF, 
PHISTDSC. TOF, 


assigned oy CPO. 
PH Doren, 
PH iS RP. Teo 


birth. 
PHLSTERF, 


Effective date or personnel 


PHISTCRIE 


Date of entry. 


PHISTCRT, 


dd-dd-dd Date elements and standards 


BEIER 


expiration of təm- 


EHISDeRT, 
PHISTRPT. TUB 


Full first name. 
PHISTORY.ICF, 


PAISTCRIS 
PHISTRPT.TBBELD 


PHISTORY.GRADE NUM dd Grade level. 
PHISTORY.ITB, PHISTORY, PHISTORY.ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TPL 

Read Access : A3CDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLANOP 


PHISTORY.HRSWK NUM dd i of hours worked per week. 
PHISTORY.ITB, PHISTORY, PHISTORY.ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLIINOP 


PHISTORY.JOBTITLE STR 330r Title of position. 
PHISTORY.ITB, PHISTORY, PHISTORY.ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TPL 

Read Access : ABCDEFGHIJXLANOP 
Write Access : ABCDEFGHIJXLMNOP 


PHISTORY.LNAHE STR 325r Pull last name.” 
BRWTABLE, DETREC2, PHISTORY.IT3, PYISTORY, PHISTORY.ICF, 
PHISTCRT, PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF, 
PHISTRPT.TPL, UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLiINOP 


AL 


PHISTORY. PD? STRES 5ST Position description e 
assigned by CPO. 
PRISTORY, ITS, PHISTORY, "PATSTORY.ICF, PHISTCRT, 
PAISTERTD ICF APATSTDEL, PHISTDEL.ICF 
Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 


PHISTORY.RATE $ddd.dd dourly rate. 
Virtual field : (((SALARY / 2087) * 8) * 1.30000) 
PENSTORY .[T3, PHISTORY, PUISTORY.ICPF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF 
Read Access : ABCDEFGHIJKLMNOP 


PHISTORY.REMARKS STR 3100r Remarks. 
PHISTORY.ITB, PHISTORY, PHISTORY.ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL.ICF 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLANOP 
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PHISTORY.SALARY 
PHISTORY.ITB 
PHISTCRT.ICF 

Read Access 
write Access 


e 
e 
e 


PHISTORY.SERIES 
PHISTORY.ITB 
PHISTCRT.ICF 

Read Access 
Write Access 


PHISTORY.STATUS 
PHISTORY.ITB 
PHISTCRT.ICF 

Read Access 
Jrite Access 


PHISTORY. STEP 
PHISTORY.IT3 
PHISTCRT.ICF 

Read Access 
Write Access 


PHISTORY.SUPERVSR 
Visor. 
PHISTORY.ITB 
PHISTCRT.ICF 

Read Access 
Write Access 


+ 
e 
e 


PHISTORY.WORKUNIT 
PHISTORY.ITB 
PHISTCRT. ICF 

Read Access : 
Write Access : 


PURCHASE.CODE 


NUM 
PHISTORY, PHISTORY. LCP, 


$ddddd.dd Annual salary. 
Bel STCRE, 


, 


, PHISTDEL, PHISTDEL. ICF 
ABCDEFGH IJ ALM NOP 
ABCDEFGH IJ KLANOP 
NUM ddddd Series classification. 
, PHISTORY, PHISTORY.ICF, PHISTCRT, 
e PHISTDEL, PHISTDEL.ICF, PHIstReP Rare. 
ABCDEFGH IJ KL:INOP 
ABCDEFGHIJ KLMNOP 
STR %6r Type of appointment. 
e PHISTORY, PHISTORY.ICF, PHISTCRT, 
, PHISTDEL, PHISSDSLAICF 


ABCDEFGHIJKL:INOP 
ABCDEPFGHIJZL;INOP 


NUM dd Step level. 
PHISTORY,- PHISTORY.ICF, PHISTCRT, 
PHISTDEL, PHISTDEL. ICF, PATSBReE TODO 
ABCDEFGHIJKLMNOP 
ABCDEFGHIJKLHMNOP 


, 
, 


STR 325r Last name of workload super- 
PHISTORY, PHISSORY.ICE; 
PHISTDEL, PHISTDEL.ICF, 

ABCDEFGHIJKLHNOP 


ABCDEFGH IJ KLIINOP 


BHISTCRI, 
DBEIDSHUCSPT , TOS 


, 
, 


STR $10r Norkunit. 
e PHISTORY, PHISTORY.ICF, PHISTCRT, 
py PHISTDEL, PHISTDEBNWICP, PHISTRPITTTERE 
ABCDEFGHIJKLANOP / 
ABCDEFGHIJKLMNOP 


STR 33c Department code. (See data 


sources in User's Manual.) 


PURCHASE.ITB 
PURCHCRT.ICF 
Read Access 
Write Access 


, PURCHASE, PURCHASE.ICF, PURCHCRT, 
PURCHDEL, PURCHDEL.ICF 

ABCDEFGH IJ KLUNOP 

ABCDEFGHIJKLMNOP 


, 
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PURCHASE.COSTCODE STR  $5r Costcode or JON. 
PURCHASE.ITB, PURCHASE, PURCHASE.ICP, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT.TPL 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 


PURCHASE.DESCRIPT STR 350r Item description. 
PURCHASE.ITB, PURCHASE, PURCHASE.ICF, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT.TPL 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 


PURCHASE. DOC# STR 310r 
BRWTABLE, DELTREC2, PURCHASE.ITB, PURCHASE, PURCHASE.IC?, 
PURCHCRT, PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF, 
REJUSRPT.TPL, UPDRECRD 
Read Access : ABCDEFGHIJAL:1NOP 
Jrite Access : ABCDEFGHIJRAL:INOP 


PURCHASE. ENTRY NUM dd-dd-dd Date record is entered. 
PURCHASE.ITB, PURCHASE, PURCHASE.ICF, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 


PURCHASE.ESTIMATE NUM Sddddd.dd Estimate of cost. 
PURCHASE.IT3, PURCHASE, PURCHASE.ICF, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 


PURCHASE. FIRM NUM Sddddd.dd Actual cost of item. 
PUBRCHASE.ITB, PURCHASE, PURCHASE.IC?, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF 

Read Access : ABCDEFGHIJKLiINOP 
"rite Access : ABCDEFGHIJKLHMNOP 


PURCHASE. ISSUE STR 325r Last name of individual item 
is issued to. 
PURCHASE.ITB, PURCHASE, PURCHASE.ICF, PURCHCRT, 
PURCHCRT.ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGHIJXLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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PURCHASE.LOCATION 
PURCHASE. ITB 
PURCHCRT. ICF 

Read Access : 
"rite Access : 


PURCHASE. PA# 
PURCHASE. ITB 
PURCHCRT. ICF 

Read Access 
Nrite Access 


PURCHASE. PO# 
PURCHASE.ITB 
PURCHCRT.ICF 

Read Access 
Nrite Access 


PURCHASE.PRIORITY 
PURCHASE. ITB 
PURCHCRT.ICF 

Read Access 
Write Access 


PURCHASE. QTY 
PURCHASE. ITB 
PURCHCRT.ICF 

Read Access 
Write Access 


PURCHASE. RDD 
PURCHASE. ITB 
PURCHCRT. ICF 

Read Access 
write Access 


PURCHASE.RECEIVED 
PURCHASE. ITB 
PURCHCRT. ICF 

Read Access : 
Write Access : 


STR 37r Location of issue. 
, PURCHASE, PURCHASE.ICF, PURCHCRT, 
, PURCHDEL, PURCHDEL.ICF 


ABCDEFGHIJRLiINOP 
ABCDEFGHIJKLAANOP 


STR 317r Plant Account +. 
e PURCHASE, PURCHASE.ICF, PURCHCRT, 
r PURCHDEL, PURCHDEL. ICF 
ABCDEFGH IJKL:1NOP 
ABCDEFGHIJKLMNOP 
STR $%9r Purchase Order #. 
, PURCHASE, PURCHASE.ICF, PURCHCRT, 
e PURCHDEL, PURCHDEL.ICF, REQUSRPT.TPL 
ABCDEFGHIJ&KLANOP 


ABCDEFGHIJKLHANOP 


NUM dd 
PURCHASE, PURCHASE.ICF, PURCHCRT, 
PUÜRCHPEL,SPUBGCHDEPSCICE 
ABCDEFGHIJKLMNOP 
ABCDEFGH IJXLMNOP 


, 
, 


STR rrr 
PURCHASE, PURCHASE.ICF, 
PURCHDEL, PURCHDEL.ICF 


Ao 022522 PE 


PURCHCRT, 


, 
' 


A.ceeocc co B. 


NUM dd-dd-dd Required delivery date. 
PURCHASE, PURCHASE.ICP, PURCHCRT, 
PURCHDEE, PURCHDEE.ICE, REQUSRPT CED 

ABCDEFGH IJKLI1NOP 


ABCDEFGH IJ KLMNOP 


' 
' 


NUM dd-dd-dd 
PURCHASE, PURCHNESOE.ICFE, 
PURCHDEL, PURCHEEL 1G: 

ABCDEFGHIJKLMNOP 
ABCDEFGHIJKLMNOP 


PURCHCRT, 


' 
' 
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Nrite 


PURCHASE. REMARKS 
PURCHASE. ITB, PURCHASE, 
PURCHCRT.ICF, 
Read Access 


PURCHASE. REQUESTR 


STR 
PURCHDEL, 


: ABCDEFGHIJKLANOP 
Nrite Access : ABCDEFGHIJKL:INOP 


STR 


$50r 


$25r 


requested the purcnase. 


PURCHASE.ITB, 
PURCHCRT.ICF, 
Read Access 
write Access 


PURCHASE. SERIAL# 
PURCHASE.ITB, PURCHASE, 
PURCHCRT.ICF, 
Read Access 
Access 


PURCHASE.STOCK# 
PURCHASE.ITB, 
PURCHCRT.ICF, 
Read Access 
Write Access 


PURCHASE.VZNDOR 
PURCHASE.ITB, PURCHASE, 
PURCHCRT.ICF, 
Read Access 
“rite Access 


PURCHASE, 
PURCHDEL, 
: ABCDEFGHIJKLANOP 
: ABCDEFGHIJKAL:ANOP 


STR 
PURCHDEL, 


: ABCDEFGHIJZXLANOP 
: ABCDEPGHIJXLNOP 


312r 


STR 320r 


PURCHASE, 
PURCHDEL, 
: ABCDEFGHIJKLHNOP 
: ABCDEFGHIJKLiTNOP 


STR 340r 


PURCHDEL, 
>: ABCDEFGHIJKLANOP 


>: ABCDEFGHIJKLMNOP 


STR 
one of the following functions will 5e performed on; 
browse the table, update a record in tne table, create 


or delete 
BRWTABLE, 
INDIRDLT, 
INVENDLT, 
OPTARDLT, 
OTHERDLT, 
PFUNDDLT, 
PHISTDLT, 
PURCHDLT, 
TRAVLMEN, 
UPDRECRD 


a record. 
CRTRECRD, 
INDIRHEN, 
INVENMEN, 
OPTARMEN, 
OTHERMEN, 
PFUNDMEN, 
PHISTHMEN, 
PURCHHEN, 
TVLEXDLT, 


DEB ERE el 
INDIRUPD, 
INVENUPD, 
OPTARUPD, 
OTHERUPD, 
PFUNDUPD, 
PHISTUPD, 
PURCHUPD, 
TVLEXUPD, 


r31 


PURCHASE. ICF, 
PURCHDEL.ICF 


PURCHASE.ICF, 
PURCHDEL.ICF 


PURCHASE.ICF, 
PURSADEL . ICF 


PURCHASE.ICF, 
PURCHDEL.ICF, 


PURCHASE. ICF, 
PURCHDEL.ICF, 


PURCHCRT, 


Last name of individual wno 


PURCHCRT, 


PURCHCRT, 


PURCHCRT, 
REQUSRP EST PL 


PURCHCRT, 
REQUSRPT.TPL 


The name of a table that 


TVLEXP.ADVANCE NUM  Sddd.dd SAmount of advance. 
TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLƏXCRT, 
TVLEXCRT.ICF, TVEEXDEE, TYO Men Te 

Read Access : ABCDEFGHIJXLHMNOP 
Write Access : ABCDEFGHIJKXL;NOP 


TVLEXP.CLAIM NUM dd-dd-dd Date claim is filed. 
OUTSTRPT.TPL, TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLIA 
TVLEKCRT.ICF, TVLEXDEE, TVEE DEL, ICE 

Read Access : ABCDEFGHIJALMNOP 
Write Access : ABCDEFGHIJEKLHNOP 


TVLEXP.CODE STR 33r Code indicating type of 
travel; recruit, invitational, regular, or association. 
TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLEACRT, 

TVLEXCRT ICF, TVEEADEL, mame fel. [Ce 
Read Access : ABCDEFGHIJXLANOP 
Write Access : ABCDEFSGHIJKLANOP 


TVLEXP.COSTCODE STR» *Or Costcode or job orderz. 
OUTSTRPT.TPL, TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLEXCRT, 
TVLEXCRP. ICF, TVLEXDEL, TES DEN ICE 

Read Access : ABCDEFGHIJKLIINOP 
Write Access : ABCDEFGHIJKL:INOP 


TVLEXP.DATEDEP NUM dd-dd-dd Date travel originated. 
BRWTABLE, TVLEXP.ITS, TVLEXP, TVLEXP.ICF, TVLEXCRT, 
TYLEXCRT.ICF, TVLEXDEL, TWERSDSENICE 

Read Access : ABCDEFGHIJKLHMNOP 
write Access : ABCDEFGHIJKLiINOP 


TVLEXP.DATERET NUM  dd-dd-dd Date travel is concluded. 
TVLEXP.ITS, TVLEXP, TVLEXP.IC?, TVLEXCRT, 
TUVLEXCRT.ICF, TYEEXDEL, TUEEDEL NG 
Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKL INOP 


TVLEXP.DOC# STR 3210r Travel order #. 
BRWTABLE, DELTREC2, OUTSTRPT.TPL, TVLEXP.IT3, TVLEXD, 
TVLEXP.ICF, TVLEXCRT, TVLEXCRT.ICF, TVLEXDEL, TIVLEADSDOMUE 


UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 


PS2 


TVLEXP. DOV# SER rrabr Disbursing Office Voucher +. 
PAA APA AP TIB, TVYLEXP, TVLEXP.ICF, TVLEXCRT, 
UBE GRT ICE, TVELEXDEL, TVLEXDEL. ICF 
Read ACCESS : AW... enr 
nite ACCessas oa AA... ... . 


TVLEXP. ENTRY NUM dd-dd-dd Date entry of record. 
TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLEXCRT, 
IDUEBACRT,IGSMNEITVDEXDEES PVEBEXDEL.ICF 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKL/NOP 


TVLEXP.ESTIMATE NUM Sdddd.dd Estimated cost of travel. 
TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLEXCRT, 
ICEX CP. TVLEXDEL, TVLEXDEL.ICF 
Read Access : ABCDEFGH IJXLANOP 
Nrite Access : ABCDEFPGHIJKL:INOP 


TVLEXP.FIRM NUM Sddddd.dd Actual cost of travel. 
TVLEXP.ITB, TVLEXP, TVLEXP.ICF, TVLEXCRT, 
TVLEXCRT.ICF, TVLEXDEL, TVLEXDEL. ICF 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLHMNOP 


TVLEXP.LOCATION STR 325r Destination of traveler. 
TVLEXPE TS, TVLEXP, TVLEXP.TCF, TVLEXCRT, 
TVLEXCRT.ICF, TVLEXDEL, TVLEXDEL. ICF 

Read Access : ABCDEFGHIJKXLANOP 
Write Access : ABCDEFGHIJKLiÓiNOP 


TVLEXP.REQUESTR STR 320r Name of travler. 
OUTST ET PE, "PULEXP.ITB, @VLEXP, TVLEXP.ICF, TVLEXCRT, 
TVLE Meet oer, LVLEASDEL, TVLEXDEL.ICF 
Read Access : ABCDEFGHIJKLMNOP 
write Access : ABCDEFGHIJKLiIINOP 


UPDATVAR STR or NUM A variable which is used to 
determine which selection criterion is used to update a 
record. (UPDATVAR equals a specific field's value.) 
INDIRUPD, INVENUPD, OPTARUPD, OTHERUPD, PFUNDUPD, PHISTUPD, 
PURCHUPD, TVLEXUPD, UPDRECRD 
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APPENDIX I 
PROGRAM LISTINGS 


TABLE OF CONTENTS 


FILE PAGE FILE PAGE 
orwtable O outstrpt 152 
crtrecrd T37 persdmen 153 
dbmen 139 ofunddlt 164 
deltrecl 140 ofundmen 165 
deltrec2 141 ofundrpt 165 
expenmen 146 pf undupd 167 
incommen 147 phistdlt 158 
indirdlt 148 phistmen 169 
indirmen 149 phistrpt 170 
indirupd 150 phistupd lal 
invendlt ISl prprtmen 192 
invenmen 152 purchdlt TS 
invenrpt LSS purchmen 174 
invenupd 154 purchupd Jee 
mainmen ips purrtmen 176 
optardlt 156 reprtmen 177 
optarmen 157 requsrpt 178 
optarupd 158 travlmen 179 
otherdlt 59 tvlexdlt 180 
otnermen 160 tvlexupd Tai 
otherupd 161 updrecrd 182 


This appendix contains listings of all the AS System's 
perform files, except menus and forms. The code for the menus 
and forms can be "looked at" by using K-Paint. 
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/* BRWTABLE.IPF - This module browses a table. 
/* Called by: INDIRMEN.IPF, OPTARMEN.IPF, PFUNDMEN.IPF, 
/* PHISTMEN.IPF, PURCHMEN.IPF, TRAVLAIEN. IPF, 
Ja OTHERMEN. IPF, INVENMEN. IPF 
/* Calls: INDIRECT.IPF, OPTAR.IPF, PFUNDING.IPF, 
/* PHISTORY.IPF, PURCHASE.IPF, TVLEAP.IPF, 
pee OTHER.IPF, TABLDFRH.IPF, INVENTOR.IPF 
/* Author: R. Booker, 15 Oct 85 
E.ICAS - TRUE; ! ignore case differences among string values 
PERFORM TABLDFRM; 
PUTFORM TABLDFR:1; 
TABLE = 7A; 
TEST TABLE 
CASE "INDIRECT": 
USE INDIRECT; 
SORT INDIRZCT 3Y AZ PRINCIPL; 
LOAD FROM INDIRECT; ! the indirect funds entry form 
BROWSE INDIRECT ALL WITH INDIRECT; 
BREAK; 
CASE "INVENTOR": 
USE INVENTOR; 
SORT INVENTOR BY AZ PA#; 
LOAD FROM INVENTOR; ! the inventory entry form 
BROWSE INVENTOR ALL WITH INVENTOR; 
BREAK: 
CASE "OPTAR": 


USE OPTAR; 

SORT OPTAR BY AZ 
LOAD FROM OPTAR; 
BROWSE OPTAR ALL 
BREAK; 


RECEIVED; 


the OPTAR entry form 


WITH OPTAR; 
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CASE “OTHER: 
USE OTHER; 
SORT OTHER BY AZ PRINCIPL; 
LOAD FROM OTHER; the other funds entry form 
BROWSE OTHER ALL WITH OTHER; 
BREAK; 

CASE "PFUNDING^": 
USE PFUNDING; 
SORT PPUNDING BY AZ LNAME; 
LOAD FROM PFUNDING; ! the personnel funding entry form 
BROWSE PFUNDING ALL WITH PFUNDING; 
BREAK; 

CASE "PHISTORY": 
USE PHISTORY; 
SORT PHISTORY BY AZ LNAHME; 
LOAD FROM PHISTORY; ! the personnel history entry form 
BROWSE PHISTORY ALL WITH PHISTORY; 
BREAK; 

CASE "PURCHASE": 
USE PURCHASE; 
SORT PURCHASE BY AZ DOC#; 
LOAD FROM PURCHASE; ! the purchase entry form 
BROWSE PURCHASE ALL WITH PURCHASE: 
BREAK: 

CASE "TVLEXP": 
USE TVLEZXP; 
SORT TVLEXP BY AZ DATEDEP, DOC#; 
LOAD FROM TVLEXP; ! the travel expenses entry form 
BROWSG TVLEXP ALL WITH TVLEXP; 
BREAK; 

ENEE 


FINISH ALL; 
FORMANS 2 " "; 
E. ICAS = FALSE; 
RETURN; 
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/* CRTRECRD.IPF - This module creates a record in a passed 


pet table. 

/* Called by: PFUNDMEN.IPF, PHISTMEN.IPF, TRAVLAEN.IPF, 
/* INDIRMEN.IPF, OTHERHEN.IPF, PURCHHEN.IPF, 
/* OPTARMEN.IPF, INVENMEN.IPF 

/* Calls: INDIRCRT.IPF, OPTARCRT.IPF, PFUNDCRT.IPF, 
EE PHISTCRT.IPF, PURCHCRT.IPF, TVLEXCRT.IPF 
p OTHERCRT.IPF, TABLDFRM.IPF, INVENCRT.IPF 
/* Author: R. Booker 26 Jan 86 


E.LMOD=FALSE; ! only blanks will first appear in the creation 


! form 


PERFORM TABLDFRil; 
PUTFORM TABLDFRi; 


TABLE -» iA; 
TEST TABLE 


CASE 


“INDIRECT”: 

Use GNDIRECT; 

LOAD FROM INDIRCRT; ! tne indirect cost form 
CREATE RECORD FOR INDIRECT WPH INDIRCRT; 
BREAK? 


CASE "INVENTOR": 


CASE 


USE INVENTOR; 

LOAD FRO!1 INVENCRT; ! tne inventory form 
CREATE RECORD FOR INVENTOR WITH INVENCRT; 
BREAK; 


"OPTAR": 

USE OPTAR; 

LOAD FROM OPTARCRT; ! the optar form 

E.ICOM = TRUE; ! immediate compute of virtual field 
CREATE RECORD FOR OPTAR WITH OPTARCRT; 

E. ICOM = FALSE; BREAK? 
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CASE 


CASE 


CASE 


CASE 


CASE 


ENDTEST; 


"OTHER": 
USE- OTHER: 


LOAD FROM OTHERCRT; mn the othem funds fom 
CREATE RECORD FOR OTHER WITH OTHERCRT; 
BREAK; 


"PFUNDING": 

USE PFUNDING; 

LOAD FROM PFUNDCRT; ! the personnel funding form 
CREATE RECORD FOR PFUNDING WITH PFUNDCRT; 

BREAK; 


APHISTOÓRUS: 

USE PHISTORY; 

LOAD FROM PHISTCRT; ! tne personnel nistory form 
CREATE RECORD FOR PHISTORY WITH PHISTCRT; 

BREAK; 


"PURCHASE": 

USE PURCHASE; 

LOAD FROM PURCHCRT; ! the purchase form 
CREATE RECORD FOR PURCHASE WITH PURCHCRT; 
BREAK; 


"TVLEXP": 

USE TVLEXP; | 
LOAD FROM TVLEXCRT; ! tne travel expenses form 
CREATE RECORD FOR TVLEXP WITH TVLEXCRT; 

BREAK; 


FINISH ALL; 


FORMANS e ! places a blank in calling module prompt 
E.LMODzTRUE; ! default 
RETURN; 
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/* DBMEN.IPF - Brings up the data base menu, and perform 


STO) either EXPENMEN. IPF, INCOMMEN. IPF or 

/* INVENMEN.IPF 

/* Called by:  MAINMEN.IPF 

/* Calls: DBFRM.IPF, ZRRORFRM.IPF, EXPENMEN.IPF, 

/* INCOMMEN. IPF, INVENMEN. IPF 

/* Author: R. Booker 15 Jan 86 

FORMANS = H "; 

WHILE FORMANS NE "4" DO ! don't exit from module 
PERFORM DBFRi; ! expenses form 


PUTFORAM DSFRH; 
GETFORM DBFRil; 


WHILE NOT (FORMANS IN ["1","2","3","4"]) DO 
PERFORM ERRORFRM, | 
PUTFORM ERRORFRM: 

GETFORM ERRORFRH: 

ENDWHILE: 


TEST FORMANS 
CASE "1": PERFORM “EXPENSIEN. IPF"; BREAK; 
CASE "2": PERFORM SENCOMMEN.IPF"; BREAK; 
CASE "3": PERFORM "INVENMEN.IPF": BREAK: 


BNDTEST, 
ENDWHILE; ! formans = "4" 
FORMANS 2 " "; ! places a blank at calling menu prompt 
RETURN, 
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/* DELTRECl.IPF - This module gives a user another chance */ 


/* before deleting a record. */ 
/* Called by: INDIRDLT.IPF, OPTARDLT.IPF, OTHERDLT.IPF, we) 
/* PFUNDDLT.IPF, PHISTDLT.IPF, PURCHDLT.IPF, x/ 
ps TVLEXDLT.IPF, INVENDLT.IPF * / 
/* Calls: DELQSFRM.IPF, DELERFRM.IPF, DELTREC2. IPF */ 
/* Author: R. Booker, 30 Nov 85 BA 


.ICAS - TRUE; 


q) 


TABLE = +A; ! table for deletion, passed from calling module 
PASSVAR = #B; ! value of condition variaole for deletion 


PASSCOND = #C; ! condition for deletion, passed from calling 
! module 


DELTANS 


=e 


! updated by DELOSFRA 


PERFORM DELOSFRil; ! cnecks to ensure tnat the user wants to 
PUTFORM DELOSFRM; ! delete 
GETFORM DELQSFRHM; 


WHILE NOT (DELTANS IN ["Y","N"]) DO ! check input 
PERFORM DELERFRi; 
PUTFORM DELERFRM; 
GETFORM DELERFRA; 

ENDWHILE? 


IF DELTANS - "Y" THEN 
PERFORM "DELTREC2.IPF" USING "TABLE", "PASSVAR", "PASSCOND": 
ENDIF; 
FORMANS = " "; ! places a blank at calling menu prompt 
RETURN; 
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/* DELTREC2.IPF - This module deletes a record from a passed 


x, 


/* table. KR 
/* Called oy: DELTRECI.IPF i 
/* Calls: INDIRDEL.IPF, OTHERDEL.IPF, PHISTDEL.IPF, SCH 
/* PURCHDEL.IPF, TVLEXDEL.IPF, DELETFRH.IPF, #/ 
/* TABLDFRM.IPF, PFUNDDEL.IPF, OPTARDEL.IPF D 
/* INVENDEL.IPF */ 
/* Author: R. Booker, 30 Nov 85 */ 
E.ICAS - TRUE; ! ignore case differences among string values 


PASTABLE = #A; ! taole for deletion, passed from calling module 
DELETVAR = #3; ! condition variaole for deletion 
COND = #C; ! condition for deletion, passed from calling 


! module 


PERFORM TABLDERM; 
PUTFORM TASLDFRM; 


TEST PASTABLE ! test the table which will oe used for deletion 


CASESNNNIEDIRECT^": 
USE INDIRZCT; 


LOAD FROM INDIRDEL; ! the indirect cost deletion form 
BROWSE INDIRECT FOR EXPIRE = DELETVAR ALL WITH INDIRDEL; 


BREAK; 


141 


CASE 


"INVENTOR": 
USE INVENTOR; 
LOAD FROM INVENDEL;! the inventory deletion form 


IF COND = ] THEN ! browse on PA# 
BROWSE INVENTOR FOR PA? = DELETVAR ALL\ 
WITH INVENDEL; 


ELSE 
IF COND = 2 THEN ! delete on SERIAL 
BROWSE INVENTOR FOR SERIAL# = DELETVAR ALL\ 
NITH INVENDEL; 
ENDIE; 
ENDIF? 
BREAK; 


CASE "OPTAR": 


CASE 


USE OPTAR; 
LOAD FROM OPTARDEL; ! the OPTAR deletion form 
IF COND = 1l THEN ! orowse on RECEIVED 


BROWSE OPTAR FOR RECEIVED = DELETVAR ALL\ 
NITH OPTARDEL; 


ELSE 

IF COND = 2 THEN ! browse on ENTRY 

BROWSE OPTAR FOR ENTRY = DELETVAR ALL\ 
WITH OPTARDEL; 

ENDIF; 
ENDIFP; 
BREAK; 
PORE Ras 
USE OTHER; 
LOAD FROM OTHERDEL; ! tne other funds deletion form 


BROWSE OTHER FOR EXPIRE = DELETVAR ALL WITH OTHERDEL; 
BREAK; 
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CASE 


CASE 


CASE 


CASE 


"PFUNDING": 
USE PFUNDING; 


LOAD FROM PFUNDDEL;! the personnel funding deletion form 


IF COND = 1] THEN ! browse on LNAME 
BROWSE PFUNDING FOR LNAME = DELETVAR ALL\ 
WITH PFUNDDEL; 


ELSE 
IF COND = 2 THEN ! delete on LABOR# 
BROWSE PFUNDING FOR LABOR# = DELETVAR ALL\ 
WITH PFUNDDEL; 
ENDIF; 
ENDIF; 
BREAK; 


BETISTORY": 
USE PHISTORY: 
LOAD FROM PHISTDEL; ! the personnel history deletion 
! form 
BROWSE PHISTORY FOR LNAME = DELETVAR ALL “WITH PHTSTPDESDS 
BREAK; 


"PURCHASE": 

USE PURCHASE; 

LOAD FROM PURCHDEL; ! the purchase deletion form 
BROWSE PURCHASE FOR DOC# = DELETVAR ALL WITH PURCHDEL; 
BREAK; 


"TVLEXP": 

USE TVLEXP; 

LOAD FROM TVLEXDEL; ! the travel expenses deletion 
! form 

BROWSE TVLEXP FOR DOC# = DELETVAR ALL WITH TVLEXDEL; 

BREAK; 
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ENDTEST; 


IF #FOUND = TRUE THEN ! this prevents the current record from 


! being deleted if a record is not found 


PERFORM DELETFRM; ! notification that a record is being 
PUTFORM DELETFRM; ! deleted 


TEST PASTABLE 


CASE 


CASE 


CASE 


CASE 


CASE 


"INDIRE St. 

MARK RECORDS IN INDIRECT WITH TRUE CURRENT; 
COMPRESS INDIRECT; 

BREAK; 


"INVENTOR": 

MARK RECORDS IN INVENTOR WITH TRUE CURRENT; 
COMPRESS INVENTOR; 

BREAK; 


"OPTAR": 

MARK RECORDS IN OPTAR WITH TRUE CURRENT; 
COMPRESS OPTAR; 

BREAK; 


“OPH ERs 

MARK RECORDS IN OTHER WITH TRUE CURRENT; 
COMPRESS OTHER; 

BREAK; 


"PFUNDING": 

MARK RECORDS IN PFUNDING WITH TRUE CURRENT; 
COMPRESS PFUNDING; 

BREAK; 
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CASE 


CASE 


CASE 


ENDTEST; 


ENDIF: 


FINISH ALL; 
RZTURN; 


EPHISTORY": 

MARK RECORDS IN PHISTORY WITH TRUE CURRENT: 
COMPRESS PETSTORY : 

BREAK: 


"PURCHASE": 

MARK RECORDS IN PURCHASE WITH TRUE CURRENT: 
COMPRESS PURCHASE; 

BREAK; 


"TVLEXP": 

MARK RECORDS IN TVLEXP WITH TRUE CURRENT; 
COMPRESS TVLEXP; 

BREAK; 
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/* EXPENMEN.IPF - Brings up the expenses menu and performs 


/* eee) either PERSDMEN.IPF, TRAVLAEN.IPF or 

S PURCHMEN 

/* Called by: DBMEN.IPF 

/* Calls: EXPENFRM.IPF, ERRORFRH.IPF, PERSDHMEN.IPF, 

/* TRAVLMEN.IPF, PURCHMEN.IPF 

/* Author: R. Booker 15 Jan 86 

FORMANS 2 " "; 

WHILE FORMANS NE "4" DO ! don't exit module 
PERFORM EXPENFRiI; ! expenses form 


PUTFORM EXPENFPRM; 
GETFORM EXPENFPRM; 


WHILE NOT (FORMANS IN ["1","2","3","4"]) DO 
PERFORM ERRORFRM; 
PUTFORM ERRORFRH; 
GETFORM ERRORFRM; 

ENDWHILE; 


TEST FORMANS 
CASE "1": PERFORM "PERSDHEN. IPF"; BREAK; 
CASE "2": PERFORM "TRAVLHEN.IPF": BREAK: 
CASE "3": PERFORM "PURCHMEN.IPF"; BREAK; 
ENDTEST; 
ENDWHILE; ! formans - "4" 


FORMANS = " "3; ! places a blank at calling module prompt 


RETURN; 
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/* INCOMMEN.IPF (1.2) 


/* Brings up the data base income menu, and either performs 
/* OPTARMEN.IPF, INDIRMEN.IPF or OTHERHMEN.IPF 


/* Called by: DBMEN. IPF 


/* Calls: INCOMFRM.IPF, 
/* INDIRMEN.IPF, 
/* Author: R. Booker 


FORMANS 2 " "; 


NHILE FORHANS NE "4" DO 


PERFORHM INCOHUFRi; 


PUTFORA INCOMFAA; 
GETFORM INCOHMFRi; 


ERRORFRM.IPF, OPTARMEN.IPF, 
OTHERMEN. IPF 
15 Jan 86 


! don't exit module 


! data vase menu 


WHILE NOT (FORMANS IN ["1","2","3","4"]) DO 


PERFORM ERRORFRM; 

PUTFORM ERRORFRH; 

GETFORM ERRORFRM; 
ENDWHILE; 


TEST FORMANS 


CASE "1": PERFORM "OPTARMEN.IPF"; BREAK; 
CASE "2": PERFORM "“INDIRMEN.IPF"; BREAK; 
CASE "3": PERFORM "OTHERHEN. IPF"; BREAK; 


ENDTEST; 
ENDWHILE; ! formans - "4" 
FORMANS = " "; ! places a blank at calling menu prompt 
RETURN; 
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/* 
/* 
/* 
/* 
/* 
/* 


FORMANS 


ENTRYONE 


INDIRDLT.IPF (1420520 

Brings up the menu for tne deletion of a record from tne 
indirect funds table. 

Called by: INDIRMEN.IPF 

CAMS: INDELFRM.IPF, ERLINDIR.IPF, DELTREC].IPF 
Author: R. Booker 22 Jan 86 


ll 
3 
3 
^e 


! entered from indelfrm 


i 
O 
=e 


PASCOND 2 0; ! condition for deletion, no choice = 0 


WHILE ENTRYONE = 0 DO 


exit from module 


PERFORM INDELFRN, ! indirect deletion menu 
PUTFORM INDELFRHM; 
GETFORM INDELFRM?; 


WHILE ENTRYONE = 0 DO ! check input 
PERFORM ERLINDIR; 
PUTFORM ERIINDIR; 
GETFORM ERIINDIR; 

ZNDWHILZ; 


PERFORM "DELTREC1L.IPF" USING "\"INDIRSCT\"", "SHTRYONE", \ 
"PASCOND"; 


ENDWHILE; ! formans not blank 


ENTRYONE = 0; 


FORMANS = " "; ! places a blank at calling module prompt 
RETURN; 


148 


SS 
EN 
Wi 
e 
y 
2% 


/* INDIRMEN.IPP - Brings up the menu for indirect income taple*/ 


/ 8 2) and offers the following options: browse the*/ 
/* INDIRECT table, add, update or delete a Wi 
/* record to or from it, and to quit. E 
/# Called by: INCOMMEN. IPF */ 
/* Calls: INDIRFRM.IPF, ERRORFRM.IPF, BRWTABLE.IPF, */ 
/* INDIRUPD.IPF, CRTRECRD.IPP, INDIRDLT.IPF */ 
/* Author: R. Booker 15 Jan 86 Wi 
FORMANS =" "; 

WHILE FORMANS NE "5" DO ! exit from module 

PERFORM INDIRPR:1; ! indirect cost menu 


PUTFORM INDIRFRM; 
GETFORM INDIRFRM; 


! check input 

WHILE NOT (FORMANS IN ["1","2","3","4","5"]) DO 
PERFORM ERRORP Ri; 
PUTFORA ERRORFRi!; 
GETFORM ERRORFRM; 

ENDWHILE; 


TEST FORMANS 
CASE tee) PERFORM “BRYDTABEESIPF"” USING "\"INDIRECT\""; 
BREAK? 
CASE "2": PERFORM "INDIRUPD.IPP"; BREAK; 
CASE "3": "PERFORM GRTRECRD TPP” USING "\“INDIRECT\""; 


BREAK; 
CASE "4": PERFORM "INDIRDLT.IPF"; BREAK; 
ENDTEST; 
ENDWHILE; ! formans = "5" 
FORMANS 2 " "; ! places a blank at calling module prompt 
RETURN: 
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/* INDIRUPD.IPF - Brings up the menu for updating of the */ 
/* (lem 1) indirect funds table. Wi 
/* Called by: INDIRMEN.IPF E 
/* Calls: INUPDERM. TPF,. ER2INDIR. IPF, UPDREGRDOTBE A 
/* Author: R. Booker 22 Jan 86 */ 
FORMANS = " "; 
ENTRYONE = " "; ! the lst condition for an update, entered from 
! inupd£rm 
ENTRYTNO 2 " "; ! the 2nd condition for an update, entered from 
! inupdfrm 
PASCOND = 0; ! the field to search for the update 
WHILE ENTRYONE 2 " " AND ENTRYTWO = ™ " DO ! exit from module 
PERFORM INUPDFRM; ! indirect funding update menu 
PUTFORM INUPDFRHA; 
GETFORM INUPDFRM; 
WHILE ENTRYONE 2 " " AND ENTRYTWO = " " DO ! check input 
PERFORM ER2INDIR; 
PUTFORM ER2INDIR; 
GETFORM ER2INDIR; 
ENDWHILE; 
IF ENTRYONE NE " " THEN 
PASCOND = 1; ! update oy cost code 
PERFORM "UPDRECRD.IPF" USING "\"INDIRECT\"",\ 
"ENTRYONE", "PASCOND"; 
ELSE 
IF ENTRYTWO NE " " THEN 
PASCOND = 2; ! update by principl 
PERFORM "UPDRECRD.IPF" USING "\"INDIRECT\"",\ 
"ENTRYTWO", "PASCOND"; 
ENDIF; 
ENDIF; 
ENDWHILE; ! formans not blank 


ENTRYONE = " "; ENTRYTWO 2 " "5; 
FORMANS 2 " "; RETURN; 
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/* INVENDLT.IPF (1.3.2) 

/* Brings up the menu for the deletion of a record from tne 
/* inventory table. 

/* Called by: INVENMEN.IPF 


/* Calls: IVDELFRM.IPF, EROINVEN.IPF, DELTRECI.IPF 

/* Author: R. Booker 25 Feo 86 

FORMANS = * ", 

ENTRYONE = " "3 ! entered from ivdelfrm 

ENTRYTWO 2 " "; ! entered from ivdelfrm 

PASCOND = 0; ! condition for deletion 

NHILS ENTRYONE = "" AND ENTRYTVO = " " DO ! exit from module 
PERFORM IVDELFRiA; ! inventory deletion menu 


PUTFOR:1 IVDELFRA; 
GETFORM IVDELFRH; 
WHILE ENTRYONE = " " AND ENTRYT4O = np " DO ! check input 
PERFORM EROINVEN; 
PUTFORM EROINVEN; 
GETFORM EROINVEN; 
ENDWHILE; 
IF ENTRYONE NE " " THEN 
PASCOND = l1; ! delete oy PAr 
PERFORAM "DELTRECI.IPP" USING "M"INVENTORN"",N 
"ENTRYONE", "PASCOND"; 


ELSE 
PESEIRYTIO NG P SATHEN 
PASCOND = 2; ! delete by SERIAL: 
PERFORM "DELTRECL.IPF" USING “\"INVENTOR\"",\ 
"ENTRYTWO", "PASGOND'"; 
ENDTE 
ENDIF; 
ENDWHILE; ! formans not blank 
ENPRYONE => 2$ "s: ENTRETWO s " "; 
FORMANS = " "; ! places a Dlank at calling module prompt 
RETURN; 


/* INVENMEN.IPF - Brings up the menu for the inventory table */ 


/* (155 and offers the following options: orowse the*/ 
e table, update, add, or delete a record, or */ 
/* cut. */ 
/* Called by: DBMEN. IPF x/ 
/* Calls: INVENFRM. IPF, ERRORFRA.IPF, BRWTABLE.IPF, */ 
YS INVENUPD.IPF, CRTRECRD.IPF, INVENDLT. IPF */ 
/* Author: R. Booker 25 Fep 86 Wi 
FORMANS 2 " "5; 

WHILE FORMANS NE "5" DO remit from modure 

PERFORM INVENFPR!1: ! inventory menu 


PUTFORM INVENFRA; 
GETFORA INVENFRi; 


! check input 

WHILE NOT (PORMANS IN [°1", "2, 3 e 
PERFORM ERARORFRA; 
PULEORM ERROR’ acl; 
GETFORM ERRORFRii; 

ENDWHILE; 


TEST FORMANS 
CASE "1": PERFORM “SRVTABLE.IPF" USING “\"INVENTOR Ve 
BREAK; 
CASE "2": PERFORM "INVENUPD.IPF"; BREAK; 
CASE "3"; PERFORA "“CRTRECRD.IPF" USING "\“INVENTOR\"%; 


BREAK; 
CASE "4": PERFORM “INVENDLT.IPF"; BREAK: 
ENDTEST; 
ENDWHILE; ! formans - "S" 
PORMANS = " "; ! places a blank at calling module prompt 
RETURN; 
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/ IBNENRED IPE (2. 32. 2) 
/* This module prints the quarterly inventory report. 


/* Called oy: PURRTHEN.IPF 
/* Calls: TRPLDFRM.IPF 
/* Author: R. Booker 25 Feb 86 


PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRHM; 


RE 
SE 
SEH 
i 
aA 


E.LSTR = 50; ! Change string length to 50 characters. 
EROPRN = TRUE; ! Send output to printer. 

E.PDEP = 62; ! Change page depth to 52 lines. 

S.PWID - 130; ! Change page width to 130 character. 


USE INVENTOR ! inventory table. 


REPORT "INVENRPT" ORDER BY AZ PA# 
! Report was created with K-Report. 


FINISH INVENTOR 


* 


SLSR = 15: ! Change all environment variables to tneir 
! defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

E.PWID = 120; 

FORMANS = " "; |! places a blank at calling module's prompt 

RETURN; 
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/* INVENUPD.IPF - 3rings up the menu for updating of the 


/* (1.3 3) inventory table. 

/* Called by: INVENMEN. IPF 

/* Calls: IVUPDFRM. IPF, EROINVENC TEEN, UPDRECRD ae 

/* Author: R. Booker 25 Feb 86 

FORMANS = " "5 

ENTRYONE » " "; ! the lst condition for an update, entered 


! from? 1vupdiwm 


ENTRO tne 2nd condition for an update, entered 


from ivupd£rm 


PASCOND = 0; 
'JMILE ENTRYONE 2 "" AND ENTRYTJO = " " DO ! exit from module 
PERFORM IVUPDPRH; ! inventory update menu 
PUTFORM IVUPDER:; 
GETFORM IVUPDFRi; 
WHILE ENTRYONE z- " " AND ENTRYTWO 2 " " DO 1 check input 
PERRO BE ROLIVEN: 
PUTFORM EROINVEN; 
GETFORH ZROINVEN; 


the field to search for tne update 


ENDWHILE; 
IF ENTRYOJE NG " " TSEN 
PASCOND = 1; ! update oy PA: 


PERFORM "UPDRECRD.IPF" USING "\"INVENTOR\"",\ 
"ENTRYONE", "PASCOND"; 


ELSE 
DP SENTRY TIVO NE T™ ATAN 
PASCOND = 2; ! update py SERIAL? 
PERFORM "UPDRECRD.IPF" USING "\"INVENTOR\"",\ 
"ENTRYTNO", “PASCOND= > 
ENDIF; 
ENDIE? 
ENDWHILE; ! formans not blank 
ENTRYONE = * *;  BENTRYTOUS Fes: 
FORMANS 2 " "; RELURIT; 
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/* MAINMEN.IPF (0) 


/* Brings up the main AS Department data base menu, performs 
/* DBMEN.IPF or REPRTMEN.IPF 
/* Calls:  MAINFRM.IPF, ZRRORFRM.IPF, DBHMEN.IPP, REPRTHEN.IPF 
/* Author: R. Booker 15 Jan 86 
FORMANS 2 " "; 
WHILE FORMANS NE "3" DO ! exit from module 

PERFORM MAINFR:1, ! System banner menu 

PUTFORM MAINFRAM; 

GETFORM MAINFR; 

WHILE NOT (FORMANS IN ["1","2","5"]) DO aout chseses 


PERFORM ERRORFRM; 

PUTFORM ERRORFRH; 

GETFORM ERRORFRM; 
ENDWHILE; 


TEST FORMANS 


CASE "1": PERFORM "DBMEN.IPF": BREAK: 
CASE "2". PERFORM "REPRTMEN.IPF": BREAK: 
ENDTEST: 
ENDWHILE; NErOrmans = "3" 


RELEASE ALL; 


CLEAR; 


RETURN; 
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/* OPSEARDLTODBNDC (1205988999) 


/* Brings up the menu for the deletion of a record from tne 
/* OPTAR funding table. 
/* Called by: OPTARMEN.IPF 
/* Calls: OPDELFRA.IPF, EROOPTAR.IBBE4DSLTREGICTBE 
/* Author: R. Booker 22 Jan 86 
FORMANS 2 " "; 
NTRYONE = 0; ! entered from opdelfrm. 
ENTRYTWO = 0; ! entered from opdelfrm 
PASCOND - 0; ! condition for deletion 
WHILE ENTRYONE = 0 AND ENTRYTWO = O DO t exit from MOSES 


PERFORM "DELTRECIl.IPF" USING "WX"OPTARN"", “ENTRYOHE | 
"PASCOND"; 
ELSE 
IF ENTRYTYOME 0 THEN 
PASCOND - 2: ! delete oy ENTRY 
PERFORM "DELTRECI1.IPP” USING "'X?OPTARYT TG 
"ENTRYTWO", "PASCOND": 
EMDIE 
ENDIFP; 
ENDWHILE; ! formans not blank 
ENTRYONE = 0; ENTRYTWO = 0; 
FORMANS = " "; ! places a blank at calling module prompt 
RETURN; 


PERFORM OPDELFZR; 

PUTRORIT OPDELER, 

GETFORII OPDELFPRII; 

WHILE ENTRYONE = 0 AND 
PERFORM EROOPTAR; 
PUTFORM EROOPTAR; 
GETFORM EROOPTAR; 

ENDWHILE; 

15 ENTRYONE NE O THEN 
PASCOND = 1; 


! OPTAR deletion menu 


ENTRYTWO = O DO ! check input 


! delete oy RECEIVED 
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/* OPTARMEN.IPF - Brings up the menu for the OPTAR table and 


EEUU 2.1) offers the following options: browse the 
Gë table, update, add, or delete a record, or 
ES Sut. 

/* Called by: INCOMMEN. IPF 

/* Calls: OPTARFRM.IPF, ERRORFRA.IPF, BRWTABLZ.IPF, 

Kc? OPTARUPD.IPF, CRTRECRD.IPF, OPTARDLT.IPF 

/* Author: R. Booker 15 Jan 86 

FORMANS = " "; 


WHILE FORMANS NE "5" DO 
PERFORM OPTARPR; 
PUTFORM OPTARFRi; 


GETFORM OPTARFRM; 


! check input 


! exit from module 


! OPTAR menu 


ENERO? (FORMANS. IN 11" HO IB PAN NEN) DO 


PERFORH ERRORFRi1; 

PUTFORH ERRORPRi17 

GETFORM ERRORFRM; 
ENDWHILZ; 


TEST FORMANS 
CASE "1": PERFORM 
BREAK; 
CASE "2": PERFORM 
CASE "3": PERFORM 


PARADE. PEN USING SNCOPTARN""; 


"OPTARUPD.IPF"; BREAX; 
"CRTRECRD.IPF" USING "W'"OPTARN""; 


BREAK? 
CASE "4"; PERFORM "OPTARDLT.IPF"; BREAK; 
ENDTEST; 
ENDWHILE; ! formans = "5" 
FORMANS 2 " "; ! places a blank at calling module prompt 
RETURN? 
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Re ORM OUD PDE I; 
PULP ORM OE Oe eric; 
GETPORIT OFUPPE Ri; 


WHILE ENTRYONE = Q AND 


PERFOR: EROOPIAR; 
PUTFORM EROOPTAR; 
GETFORMN EROOPTAR; 


aNDWHILE; 


IF ENETRYONE NG O TUM] 


PASCOND = 1; 


PERFORM "UPDRECRD. IPF" 


! personnel funding update menu 


ENTRYTWO = 0 DO ! check input 


! update by RECHT Vie 


/* OPTARUPD.IPF (1.2.1.1) VA 
/* Brings up the menu for updating of the OPTAR funding table.“/ 
/* Called by: OPTARMEN.IPF * / 
/* Calls: OPUPDFRHM.IPF, EROOPTAR.IPF, UPDRECRD.TPF * / 
/* Author: R. Booker 22 Jan 86 */ 
PORMANS = " "; 
ENTRYONE = 0; ! the Ist condition for an update, entered from 

! opupdfrm 
ENTRYTWO = 0; ! the 2nd condition for an update, entered from 

! opupdfrm 
PASCOND 2 0; ! tne field to search for the update 
AdILE ENTRYONE = 0 AND ENTRYTWO = O DO ! exit fron nodum 


USING "\"OPTAR\"", "SNTRY Ome 


"PASCOND"; 
EESE 
IF ENTRYTYO NE O THEN 
PASCOND = 2; ! update by ENTRY 
PERFORM "UPDRECRD.IPF" USING "\"OPTAR\"",\ 
"ENTRYTYWO?, "BA OOD"; 
ENDIF ; 
ENDIF; 
ENDWHILE; ! formans not blank 


ENTRYONE = 0; ENTRYTYO = 
FORMANS 2 " "; RETURN; 


0; 
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/* OTHERDLT.IPF (1.2.3.2) e 
/* Brings up tne menu for the deletion of a record from the */ 
4 other funds table. */ 
/* Called by: OTHERMEN. IPF x/ 
/* Calls: OTDEL£ZRH.IPF, ERIINDIR.IPF, DELTRECI.IPF * / 
/* Author: R. Booker. 22 Jan 86 * / 
FORMANS = " ", 
ENTRYONE = 0; ! entered from otdelfrm 
PASCOND = 0; ! condition for deletion, no choice = 0 
WHILE ENTRYONE = 0 DO ! exlt from module 

PERFORM OTDELFRIMI; ! otner deletion menu 

PUTFORM OTDELFRH: 

GETFORM OTDELFRHAM; 

WHILE ENTRYONE = 0 DO ! check input 

PERFORM ERLINDIR; ! same as for indirect taole 


PUTFORH ERIINDIR: 
GETFORM ERIINDIR; 
ENDWYHILE: 


PERDORI "DELTRECI.IPE" USEING “\"OTHER\"", “ENTRYONE",\ 
"PASCOND" ; 


ENDWHILE; ! formans not olank 
ENTRYONE = 0; 


FORMANS 2 " "; ! places a olank at calling module prompt 
RETURN; 


519 


/* OTHERMEN.IPF - Brings up the menu for otner income, and 


fee ee offers the following options: browse tne 
ja OTHER table, add, update, or delete a 
7% record, or dun 
/* Called oy: INCOMMEN. IPF 
/* Calls: OTHERFRM. IPF, ERRORFRM.IPF, BRWTABLE. IPF, 
Lë: OTHERUPD.IPF, CRTRECRD.IPF, OTHERDLT.IPF 
/* Author: R. Booker 15 Jan 86 
FORMANS =" "; 
WHILE FORHANS NE "5" DO ! exit from module 
PERE ORT “OTHERER: 15 ! personnel other funds menu 


PUREOR SEM 
GETFOR 1 OTZERFR 7 


! check input 

WHILE NOT (FORMANS IN ["I^";"2"P"S' ARES TO 
PERFORM ERRORFRH; 
PUTFORM ERRORFRM: 
GETFORM ERRORFRH1, 

ENDWHILE? 


TEST FORHANS 
CASE "1": PERFORM “BRNTABLE.IPE" USING "\"OTHER a 
BREAK; 
CASE "2": PERFORM "OTHERUPD.IPF"; BREAX; 
CASE "3"; PERFORM "CRTRECRD.IPF" USING "\"OTHER\” "> 


BREAK; 
CASE "4": PERFORM "OTHEBRDLT.IPF"; BREAK; 
ENDI ES, 
ENDWHILE; ! formans = "5" 
FORMANS = " "; ! places a blank at calling module prompt 
RETURN, 


160 


T; 
Sg 
| 
WA 
SÉ 
“YA 
b 
A 


/* OTHERUPD.IPF - Brings up the menu for updating of tne other*/ 


o ) funds table. */ 
/* Called by: OTHERMEN.IPF Wi 
/* Calls: OTUPDFRM.IPF, ER2INDIR.IPF, UPDRECRD.IPF a 
/* Author: R. Booker 22 Jan 86 */ 
FORMANS 2 " "; 
ENTRYONE = " "; ! the lst condition for an update, entered 
! from otupdfrm 
ENTRYTWO 2 " "; 1! the 2nd condition for an update, entered 
l.trom otupdfrm 
PASCOND = 0; ! the field to search for the update 
WHILE ENTRYONE s " " AND ENTRYTNO 2 " " DO ! exit from module 
PERFORM OTUPDFRil; ! indirect funding update menu 


PUTFORM OTUPDFRH; 

GETFORA OTUPDFRM; 

WHILE ENTRYONE 2 " " AND ENTRYTWO 2 " " DO ! check input 
PERFORM ER2INDIR; ! same as for the indirect table 
PUTFORM ER2INDIR; 

GETFORM ER2INDIR; 


ENDWHILE; 

IF ENTRYONE NE " " THEN 
PASCOND - 1; ! update dy cost code 
PEER] CUPDREGAD. IPE USING "N"OTHERN"", "ENTRYONE",N 


" PASCOND"; 


Di 
ES 
LO 
Di 


IS ENTRYTWO NE A “ THEN 
PASCOND = 2; ! update by principl 
PERHORN  UPDREERD TPE” USING “\"OTHER\"",\ 
"ENTRYTWO", "PASCOND"; 
ENDIF; 
ENDIF; 
ENDWHILE; ! formans not blank 
ENTRYONE 2 " " ENTRYTWO 2 " "; 
FORMANS 2 " "; RETURN; 


=e 
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/* OUTSTRPT.IPF (2.3) */ 


/* This module prints the outstanding TO(s) report. TA 
/* Called by: REPRTMEN. IPF */ 
/* Calls: TRPLDFRM. IPF k/ 
/* Author: R. Booker 1539an 85 Zeg 


PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 


E.LSTR = 25; ! Change string lengtn to 25 characters. 
E.OPRN = TRUE; ! Send output to printer. 

E.PDEP = 02; ! Change page depth to 62 lines. 

SG. BEID = 130; ! Change page width to 130 character. 


USE TVLEXP 


Travel Expenses table. 


REPORT "OUTSTRPT? ORDER BY AZ COSESSDES 


PINISH TVLEXP 


E.LSTR 2» 15; ! Cnange all environment variaoles to their 
! defaults. 

E.OPRN 7» FALSE: 

E.PDEP = 60; 

E.PYID - 120: 


FORMANS - " "; ! places a blank at calling module's promot 


RETURN; 
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/* PERSDMEN.IPF (1.1.1) - Brings up the personnel menu 


/* Called by: EXPENMEN. IPF 
/* Calls: DERSDFRM.IPF, 
y^* PHISTMEN.IPF 
/* Author: R. Booker 


FORMANS 2 " " 


Vo 


WHILE PORMANS NE "3" DO 
PERFORM PERSDFRiM; 
PUTFORM PERSDFRM; 
GETPORM PERSDFRM: 


ERRORFR:1. IPF, PFUNDHEN.IPF, 


15 Jan 86 


don't exit module 
personnel menu 


ABE MOT (FORMAMNSeINe("1",°2","3°] "DO 


PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 
ENDWHILE; 


TEST FORMANS 


CASE "1": PZRFORM "PFUNDMEN.IPF"; BREAK; 
"PHISTMEN.IPF"; BREAK; 


CASE "2": PERFORM 


ENDTEST;,; 
ENDWHILE; ! formans = "3" 
FORMANS = " "; ! places a blank at calling menu prompt 
RETURN; 
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/* PPUNDDLT.IPF (1.1.1.1.2) 

/* Brings up tne menu for the deletion of a record from the 

/* personnel funding table. 

/* Called by: PFUNDMEN. IPF 

/* Calls: PFDELFRM.IPF, EROPFUND.IPF, DELTRECI.IPF 

/* Author: R. Booker 22 Jan 86 

FORMANS = " > 

ENTRYONE.= Je Es ! entered from pfdelfrm 

ENTRYTWO = 0; .| entered from prdelfrm 

PASCOND = 0; ! condition for deletion 

JHILE ENTRYONE = " " AND ENTRYTHO -.0 DO ! exit from module 
PERPORM PFDELFRH: ! personnel funding deletion menu 


PURBORM PFDELERri; 

GETFORM PFDELFRH; 

AHILE ENTRYONE 3s " " AND ENTRYTYO = 0 DO ! check input 
PERFORM EROPFUND; 
PUTEOR EROPFUND? 
GETEORSM EROPPUND:? 


ENDWH ILES; 
IP ENTRYONE NE " " THEN 
PASCOND = 1; ! delete by last name 


PERFORM "DELTREC1L.IPF" USING "\"PFUNDING\"", \ 
"ENTRYONE", "PASCOND"; 


ELSE 
IF ENTRYTWO NE O THEN 
PASCOND = 2; ! delete by labor + 
PERFORM "DELTREC1.IPF" USING "\"PFUNDING\"",\ 
"ENTRYTWO", "PASCOND"; 
ENDIP? 
ENDIF; 
ENDWHILE; ! formans not blank 
ENTRYONE = " "; ENTRYTWO = 0; 
FORMANS 2 " "; ! places a blank at calling module prompt 
RETURN; 
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/* PFUNDMEN.IPF - Brings up the menu for personnel funding. */ 


ll 11) The following options then may be selected:*/ 
/* browse the personnel funding table, update,*/ 
y * add or delete a record. f 
/* Called by: PERSDMEN.IPF E 
/* Calls: PFUNDFRM.IPF, ERRORFRM.IPF, BRWTABLE.IPF, EA 
Se CRTRECRD.IPF, PFUNDUPD.IPF, PFUNDDLT.IPF x/ 
/* Author: R. Booker 15 Jan 86 e 
FORMANS = " "; 

NHILE FORMANS NE "5" DO ! exit from module 

PERFORM PEUNDFRH1: ! personnel funding menu 


PUTFORA- PFUNDFR!; 
GETFORM PFUNDFRIM; 


! check input 

NUTLESNOT (FORMANS IN P'"1","2",73","4","5"I) DO 
PERFORM ERRORFR!1, 
PUTFORA ERRORFRM; 
GETFORM ERRORPRA; 

ENDWHILE; 


TEST FORMANS 
CASE "1": PERFORM "BRUTABLE.IPF" USING "\"PFUNDING\""; 
BREAK: 
CASE "2": PERFORM "PFUNDUPD.IPF”; BREAK; 
CASE "3": PERFORM "CRTRECRD.IPF" USING "\"PFUNDING\""; 


BREAK; 
CASE "4": PERFORM "PFUNDDLT.IPF"; BREA; 
ENDTEST; 
ENDWHILE; ! formans = "5" 
FORMANS 2 " "; RETURN; 
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/* PFUNDRPT.IPF (2.1.1) 

/* This module prints the personnel funding report. 
/* Called 5y: PRPRTMEN.IPF 

/* Calls: TRPLDFRM.IPF 

/* Author: R. Booker 15 Jan 86 


PERFORM TRPLDFRIM; 
PUTFORM TRPLDPRM; 


S.LSTR = 23; 
E.OPRN = TRUE; 
S.PDEP = 02; 

EB BED zu 


USE PFUNDING 


REPORT "PFUNDRPT" 


FINISH PFUNDING 


E.DSTS EE 
S.OPRN = FALSE? 
Z.PDEP = 00; 
S.PWID = 120; 
FORMANS = " "; 
RETURN; 


Table and Report Loading form 


! Change string length to 25 characters 
! Send output to printer. 
! Change page depth to 62 lines. 


! Change age widtn to 130 character. 


! Personnel Funding table. 


ORDER BY AZ PFUNDING.LNAME,N 
AZ PFPUNDING.PUNDFROM, AZ PFUNDING.FPUHNDTO 


Report was created with K-Report. 


Change all environment variaoles to their 
defaults. 


places a blank at calling module's prompt 
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PRUNDURD. IPF (1.1.1.1.1l1) = Brings up the menu for updating “/ 


of the personnel funding table. 


/* Called oy: PFUNDMEN. IPF 

/* Calls: PFUPDFRM.IPF, EROPFUND.IPF, UPDRECRD. IPF 

/* Author: R. Booker 22 Jan 86 

FORMANS 23 " "; 

ENTRYONE = " "; ! the lst condition for an update, entered 
! from pfupdfrm 

ENTRYTTO = 0; |! the 2nd condition for an update, entered 
! from pfupdfrm 

PASCOND = 0; ! the field to search for the update 


MAILS ENTRYONE 5 "-" AND ENTRYTYO s 0 DO ! exit from module 


PERFORM PFUPDFRII; ! personnel funding update menu 
PUTFORM PFUPDFRM; | 
GETFORM PFUPDFRM: 
WHILE ENTRYONE = " " AND ENTRYTWO = 0 DO ! check input 
PERFORM EROPFUND; 
PUTFORM EROPFUND; 
GETFORM EROPFUND; 


ENDWITTLESs 
IF ENTRYONE NE " " THEN 
PASCOND = l; ! update oy last name 


PERFORM "UPDRECRD.IPF" USING "\"PFUNDING\"",\ 
"ENTRYONE", "PASCOND"; 


SLSE 
IF ENTRYTWO NE O THEN 
PASCOND = 2; ! update by labor 7 
PERFORM "UPDRECRD.IPF" USING "N"PFUNDINGN"",N 
"ENTRYTWO", "PASCOND"; 
ENDIF}; 
ENDIF: 
ENDWHILE; ! formans not blank 


ENTRYONE = " *; ENTRYTWO = 0; 
FORMANS = " ^"; RETURN; 
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/* PHISTDLT.IPF (121.T 7299) 
/* Brings up tne menu for the deletion of a record from 
/* personnel history table. 
/* Called by: PHISTMEN.IPF 
/* Calls: PHDELFRM.IPF, EROPHIST.IPF, DEDTRECI.TSPE 
/* Author: R. Booker 19 Jan 86 
FORMANS = " *; 
ENTRYONE - 4 ": ! entered from phdelfrm 
PASCOND = 0; ! condition for deletion, no choice = 0 
NHILS ENTRYONE - “ “ DO ! exit from module 
PERFORM PHDELFRil, ! personnel history deletion menu 


PUTFORM PHDELFRM; 
GETFORM PHDELFRH; 


NHILE ENTRYONE = " " DO ! check input 
TEE 
PUTFORM ZROPHIST; 
GETFORM EROPHIST; 

ENGE 


PERFORM "DELTRECI1.IPF" USING "N!PHISTORYN”", “ENTRADA 
" PASCOND" ; 


ENDWHILE; ! formans not blank 

ENTRYONE 2 " "; 

FORMANS = " "; ! places a blank at calling module prompt 
RETORN? 
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/* PHISTMEN.IPF - Brings up the menu for the personnel history*/ 


"ERR. 1.2) table. The following options are then x/ 
yu possible: browse a table, update, add or i 
/* delete a record, and quit. Wi 
/* Called by: PERSDMEN.IPF e 
/* Calls: PHISTFRM.IPF, ERRORFRM.IPF, BRWTABLE.IPF, Wi 
y PHISTUPD.IPF, CRTRECRD.IPF, PHISTDLT.IPF mA 
/* Author: R. Booker 15 Jan 86 */ 
FORMANS zs " "; 

WHILE FORMANS NE "5" DO ! exit from module 

PERFORM PHISTFRM; ! personnel nistory menu 


ER, lk 
GZTFORAM PHISTPRi; 


! check input 

WHILE NOT (FORMANS IN ["1","2","3","4","S5"]) DO 
PERFORM ERRORFRM; 
PUMPORM ERRORPR:!1: 
GETFORH ERRORFRH; 

SNDWHILE; 


TEST FORMANS 
CASE "1": PERFORM "BRWTABLE.IPF" USING "W"PHISTORYN""; 
BREAK; 
CASE "2"; PERFORM CPHISTUPD.IPF"; BREAK; 
CASE "3": PERFORM “CRTRECRD.IPF" USING “\"PHISTORY\""; 


3REAK: 
CASE "4": PERFORM "PHISTDLT.IPF": BREAK; 
ENDTEST: 
ENDWHILE; ! formans = "5" 
FORMANS 2 " "; RETURN; 
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/* PHISTRPT.IPF (2.1.2) */ 


/* This module prints the personnel nistory report */ 
/* Called by: PRPRTMEN.IPF * / 
/* Calls: TRPLDFRM. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 


PERFORM TRPLDPRA; 
PURPORNM TRPLDFRM, 


BOBOTR 255 
EOD PRUE? 
3.PDEP = 62; 
E.PNID = 136; 
USE PHISTORY 


REPORT "PHISTRPT" 


FINISH PEISTORS 


E.LSTR = 1 


Ul 
ao 


E.OPRN = FALSE; 
Be PDEP = 60; 
E.PWID = 120; 


FORMANS 2 " "; 
RETURN; 


! Table and Report Loading form 


! Change string lengta to 25 characters. 
! Send output to printer. 
! Change page depth to 52 lines. 


! Change page width to 1305 character. 


Personnel History table. 


ORDER BY AZ LNAME 


! Report was created witn K-Report. 


Change all environment variaoles to 
their defaults. 


places a blank at calling module's prompt 
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/* PHISTUPD.IPF - Brings up the menu for updating of tne 


"ERN 1.1.2-1) personnel history table. 
/* Called by: PHISTMEN.IPF 
/* Calls: DIDI ESOPHIST.IPF, UPDRECRD.IPF 
/* Author: R. Booker 18 Jan 86 
FORMANS s " "; 
ENTRYONE = " "; ! the condition for an update, entered from 
! phupdfrm 
PASCOND = 0; ! the field to search for tne update; 
! O = no option 
WHILE ENTRYONE 2 " " DO ! exit from module 
PERFORM PHUPDFRHM; ! personnel history update menu 
PUTFORM PHUPDFRM; 
GSTFORM PHUPDFRH; 
NHILE ENTRYONE = " " DO |! check input 
PERFORM EROPHIST; 
PUTFORM EROPHIST; 
GETFORH EROPHIST: 
ENDWHILE; 
PERFORM "UPDRECRD.IPF" USING "\"PHISTORY\"", "ENTRYONE",N 
"PASCOND" 
ENDWHILE; ! formans not blank 
ENTRYONE = " "; 
FORMANS 2 " "; ! places a blank at calling module promot 
RETURN; 


TOME 


au, 
a, 
A 
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/* PRPRTMEN.IPF (2.1) - Brings up the personnel reports menu 
/* Called by: REPRTMEN.IPF 


/* Calls: PFUNDRPT.IPF, PHISTRPT.IPF, PRPRTFRA.IPF, 
/* ERRORFRZA.IPF 
/* Author: R. Booker 15 Jan 86 


FORMANS = " "; 


WHILE FORMANS NE "3" DO ! exit from module 


PSRFORM PRPRTFRH; ! personnel menu 
BPUTFOR T PRERTER: 
GETEORTPRPRTFR!1, 


WHILE NOT (PORMANS JN (CI ”,?”2 OO 
PERFORM ERRORFRM; 
PUTFORM ERRORFRM; 
GETFORM ERRORERM; 

ENDWHILE; 


TEST FORMANS 
CASE "l1": PERFORM “PFUNDRPT.IPF*; BREAK: 
CASE "2": PERFORM "PHISTRPIT SIE?” - eee oa, 


ENDTEST; 
ENDWHILE; ! formans = "3" 
FORMANS = H "; 1 places a blank at calling modules prompt 
RETURN; 
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7" PM@RCHDLT.IPF (1.1.3.2) 

/* Brings up the menu for the deletion of a record from 
/* purchase table. 

/* Called by: PURCHMEN.IPF 

/* Calls: PUDELFRM.IPF, EROTVLEX.IPF, DELTRECl.IPF 
/* Author: R. Booker 22 Jan 86 

FORMANS = " "; 

ENTRYONE = * "; ! entered from pudelfrm 

PASCOND 2 0; ! condition for deletion, no cnoice = 9 
JHILE ENTRYONE = " " DO ! exit £rom module 


PERFORM PUDELPRA; 
PUTFORM PUDELFPRM; 
GETFORM PUDELFRi; 


purchase deletion menu 


WHILE ENTRYONE 2 " " DO 
PERFORM EROTVLEX; 
PUTFORM EROTVLEX; 
GETFORA EROTVLEZX; 

ENDWHILEZ; 


cneck input 


Same error form as travel 


expenses 


BERPEOBM "DEBPRAECI.IPF" USING "\"PURCHASE\"", "ENTRYONE",N 
" PASCOND" ; 


ENDWHILE; ! formans not olank 


ENTRYONE - "", 


FORMANS = - | places a blank at calling module prompt 
RETURN: 


17/3 
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/* PURCHMEN.IPF - 


Brings up the menu for purchase, and offers*/ 


PERAL the following options; browse the table, */ 
/* update, add, delete a record from it, or */ 
/* guits a 
/* Called by: EXPENMEN. IPF k/ 
/* Calls: PURCHFRM.IPF, ERRORFRM.IPF, BRWTABLE.IPF, x/ 
/* PURCHUPD, CRTRECRD.IPP, PURCHDLT.IPF * / 
/* Author: R. Booker 15 Jan 86 */ 
FORMANS = " "; 


NHILE FORMANS NE "5" DO 
PERS] PURCHERH: 
PUTPFORUDDURGHGN 
GSTFORM PURCAPR:i; 


! check input 
WHILE NOT 
PERFORA ERRORFRA; 
PUTFORM ERRORE RI > 
GETFORM ERRORERM; 
ENDWHILE; 


TEST FORMANS 


GASES I: PERFORM 
BREAK; 
CASE "2": PERFORM 
CASE "3": PERFORM 
BREAK; 
CASE "4": PERFORM 
ENDTEST? 
ENDWHILE; ! formans - 
PORMANS = " 


RETURN; 


Bësch 
"s! places a blank at calling module prompt 


! exit from module 


! durchase menu 


(FORMANS IN ["1","2", 3 p MN P > lon Do 


"BRWTABLE.IPF" USING "\"PURCHAS ase 
"PURCHUPD. IPF"; BREAK; 
"CRTRECRD. IPF" USING "A" PURCHASERS 
"PURCHDCT IDPA BREAK; 
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./* PURCHUPD.IPF - Brings up the menu for updating of the 


"a .3.1) purchase table. 

/* Called by: PURCHMEN.IPF 

/* Calls: PUUPDFRM.IPF, EROTVLES.IPF, UPDRECRD.IPF 

/* Author: R. Booker 23 Jan 86 

FORMANS = " H: 

ENTRYONE = * "; ! the condition for an update, entered 


! from puupdirm 


PASCOND = 0; ! the field to search for the update; 
! 0 = no option 


JHILE ENTRYONE = * " DO ! exit from module 
PERFORM PUUPDER:1; ! purchase update menu 


PUTFORM PUUPDFRi; 
CET EON UU DER; 


WHILE ENTRYONE = " " DO ! check input 
PERFORM EROTVLEX; ! Same error form as travel 
PUTFORM BROTVDEX» ! expenses 
GETFORAM SROTVLEX;:; 

ENDWHILE; 


EE Ee REKT AG EN H H, "ENTRYONE" ,N 
"PASCOND"; 


SADWHILEZ; ! formans not blank 


ENTRYONE 2 " "; 


FORMANS = " "; ! places a blank at calling module prompt 
RETURN; 
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/* PURRTMEN.IPF - Brings up tne requisition status/quarterly 
[Moon inventory reports menu 

/* Called by: REPRTMEN.IPF 

/* Also calls: PURRTFRHM.IPF, ERRORFRM.IPF, REQUSRPT.IPF, 
e INVENRPT.IPF 

/* Author: R. Booker 15 Jan 86 

FORMANS 2 " "; 

WHILE FORMANS NE "3" DO ! exit from module 


PERFORM PURRTFRM; ! requisition status/quarterly inventory 
PUTFORM PURRTFRHM; ! form 
GLTFORM PURRTFRHI; 


WHILE NOT (FORMANS IN ["1","2","3"]) DO 
PERFORM ERRORFRM; 
PUTFORM ERRORFPRi; 
GETFORM ERRORPRHA; 

ENDWHILE; 


TEST FORMANS 
CASE "1": PERFORM "REQUSRPT. TPP": EAR. 
CASE "2": PERFORM “INVENRPT.IPF"; BREAK; 


ENDI Cog: 
ENDWHILE; ! formans = "3" 
FORMANS = " "3; ! places a blank at calling modules prompt 
RETURN; 
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/* REPRTMEN.IPF - Brings up the reports menu, and performs 


A either PRPRTMEN.IPF, PURRTMEN.IPF, 

= OUTSTRPT.IPF 

/* Called 5y: MAINMEN.IPF 

/* Calls: REPRTFRM.IPF, ERRORFRM.IPF, PRPRTMEN.IPF, 
px PURRTMEN.IPP, OUTSTRPT.IPF 

/* Author: R. Booker 15 Jan 86 


FORMANS 2 " "; 


WHILE FORMANS NE "5" DO ! exit from module 


PERFORM REPRIEPRI; NEERSSOPIS menu 
PURFORM REPREFR!l : 
GETFORM REPRTFPZi; 


WHILE NOT (PORMANS IN ["1","2","4","5"]) DO 
PERFORM ERRORFRil7 
PUMEORM ERRORERM: 
GETFORH ERRORFRM, 

SZNDWHILE; 


TEST FORMANS 
CASE "1": PERFOR PRPRTMEN; BREAK? 
CASE "2": PERFORM PURRTMEN; BREAK; 


ps CASE "3": PERFORM BALACRPT; BREAK; * / 
CASE "4": PERFORM OUTSTRPT; BREAK; 
ENDTEST; 
ENDWHILE; ! formans = "5" 
PORMANS 2 " "; l places a blank at calling module's prompt 
RETURN; 
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/* REQUSRPT. IPRS (2.220) 

/* This module prints the requisition status report. 
/* Called by: PURRTMEN.IPF 

/* Calls: TRPLDFRM.IPF 

/* Author: R. Booker l5 Jan 86 


PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 


p 
bei 
wi 
TA 
Y 


EGLSTPR = 50% ! Change string length to 30 characters. 
E.OPRN = TRUE; ! Send output to printer. 

Z.PDEP = 62; ! Change page depth to 62 lines. 

5. PWID SnO; ! Change page width to 130 cnaracter. 


USE PURCHASE Purchase table. 


REPORT "REQUSRPT" ! Report was created witn K-Report. 
FINISH PURCHASE 


D LESCH ! Change all environment variaoles to their 
! defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

E.PWID -» 120; 

FORMANS = " "; |! places a blank at calling module's promot 

RETURN; 
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/* TRAVLMEN.IPF - Brings up the menu for travel expenses, k/ 
KABA. 1. 2) and offers the following options: browse tne*/ 
/* travel expense table, update, add or delete */ 
/* a record from it. x/ 
/* Called by: EXPENMEN.IPF */ 
/* Calls: TRAVFRM.IPF, ERRORFRM.IPF, BRWTABLE.IPF, */ 
/* TVLEXUPD.IPF, CRTRECRD.IPF, TVLEXDLT.IPF */ 
/* Author: R. Booker 15 Jan 86 */ 
FORMANS = " "; 


WHILE FORMANS NE "5" DO 


PERFORH TRAVFRH, 
PUTFORAM TRAVFRi1, 
GETFORM TRAVFRH, 


! check input 


! exit from module 


! travel expenses menu 


NENE NOt (KORMANS PN ["1","2","3","4","5"]) DO 


PERFORM ERRORFRHM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRHU; 
ENDUHILE; 


TEST FORHANS 
CASE "1". PERFORÀA 
BREAK} 
CASE "2": PERFORM 
CASE "3": PERFORM 
BREAK; 
CASE "4": PERFORM 
ENDTEST; 


BRIDE. IPE USING "VN"TVLEXSN"" - 


"TVLEXUPD.IPF"; BREAX; 
KE IR EE” USING "X'TVLSXPN""; 


"TVLEXDLT.IPF"; BREAK; 


ENDWHILE; ! formans = "5" 


FORMANS 2 " " 


ze 
e 


REDURN ; 


! places a blank at calling module prompt 


l9 


/* 


TVLEXDLT.IPF - Brings up the menu for the deletion of a 


7” (1D record from the travel expenses table. 
/* Called by: TRAVLMAEN. IPF 
/* Calls: TVDEEFRN.IPF, EROINCEL. ILE, DELTECH TRE 
/* Author: R. Booker 22 Jan 86 

FORMANS = " "; 

NTRYONE 2 " "; ! entered from tvdelfrm 


PASCOND 2 0; ! condition for deletion, no choice = 0 


JHILESENBES SN 7 BDO ! exit from module 


PERFORM TVDELFR; ! travel expenses deletion menu 
PUTFORM TVDELFRM; 
GETFORM TVDELFR:1; 


NHILE ENTRYONE = " " DO ! check input 
PERFORM EROTVLEX, 
Bulaga EROTVLEX5 
GETFORAM EROTVLEX; 

ENDWHILE; 


PERFORM "DZELTRECI.IPF" USING "WX"TVLEXPWN"", "ENTRYONESENM 
"PASCOND" ; 


ENDWHILE; ! formans not blank 

ENTRYONE 2s " "a 

FORMANS 2 " "; ! places a blank at calling module prompt 
RETURN: 
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/* TVLEXUPD.IPF - Brings up the menu for updating of the 
y C1.1.2.1) travel expenses table. 


/* Called oy: TRAVLMEN. IPF 


/* Calls: TVUPDFRA.IPF, ZROTVLEZZX.IPF, 
/* Author: R. Booker 22 Jan 86 
FORMANS = H H: 

ENTRYONE = " T, ! 


! from tvupdfrm 


UPDRECRD. IPF 


! the condition for an update, entered 


PASCOND = 0; ! tne field to search for the update; 
! 0 = no option 


AHILE ENTRYONE 2 " " DO 


PERFORM TVUPDFRi4; 
PUTFORM TVUPDFRH: 
GETFORM TVUPDFRi; 


WHILE ENTRYONE 2 " " DO 
PERFORM EROTVLEX; 
PUTFORH EROTVLEX; 
GETPORM EROTVLEX; 

ENDWHILZ; 


PERFORM “UPDRECRD.IPF" 
"PASCOND"; 


1 


exit from module 


travel expenses update menu 


check input 


USING  "CIVLEXPW"”"” , 


"ENTRYONE",N 


ENDWHILE; ! formans not blank 
nen ONS = o's 
FORMANS = " "; ! places a blank at calling module prompt 


RETURN? 
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/* UPDRECRD.IPF - This module updates a record ina table. */ 


/* Called by: INDIRUPD.IPF, OPTARUPD.IPF, PFUNDUPD.IPF, */ 
/* PHISTUPD.IPF, PURCHUPD.IPF, TVLEXUPD.IPF, */ 
ax OTHERUPD.IPF, INVENUPD.IPF x/ 
/* Calls: INDIRECT.IPF, OPTAR.IPF, PFUNDING.IPF, "d 
/* PHISTORY.IPF, PURCHASE.IPP, TVLEXP.IPF, 
pao OTHER. IPF, TABLDFRM.IPF, INVENTOR. IPF */ 
/* Author: R. Booker 18 Jan 86 E 
Kees ! ignore case differences among string values 


PERFORM TABLDFRHM; 
PUTFORM TABSLDFRA; 


A ! passed from calling module 


db 
nog 


TABLE = 


UPDATVAR = #3; ! the condition variable for the search 


COND = #C;! the condition field for selecting records for update 


TEST TASLE 
CASE "INDIRECT": 
USE INDIRECT; 
LOAD FROM INDIRECT; ! the indirect £unds entry form 
IF COND = 1 THEN ! browse on COSTCODE 
BROWSE INDIRECT FOR COSTCODE = UPDATVAR ALL \ 
WITH INDIRECT? 


ELSE 
IF COND = 2 THEN ! prowse on PRINCIPL 
BROWSE INDIRECT FOR PRINCIPL = UPDATVAR ALL \ 
WITH INDIRECT; 
ENDIE? 
ENDIF; 
BREAK; 


To 


CASE 


CASE 


"INVENTOR": 
USE INVENTOR; 
LOAD PROM INVENTOR; ! the inventory entry form 
IF COND = 1 THEN ! browse on PA# 
BROWSE INVENTOR FOR PA# = UPDATVAR ALL \ 
WITH INVENTOR; 
ELSE 
IF COND = 2 THEN ! browse on SERIAL? 
BROWSE INVENTOR FOR SERIAL? = UPDATVAR ALL \ 
NITH INVENTOR; 
ENDIF; 
EE 
BREAK? 
"OPTAR": 
USE OPTAR; 
LOAD FROM OPTAR; ! the OPTAR entry form 
IF COND = 1 THEN ! prowse on RECEIVED 


BROWSE OPTAR FOR RECEIVED = UPDATVAR ALL \ 
WITH OPTAR; 


ELSE 
IF COND = 2 THEN ! browse on ENTRY 
BROWSE OPTAR FOR ENTRY = UPDATVAR ALL \ 
NITH OPTAR; 
ENDIF; 
ENDIE? 
BREAK; 
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CASE 


CASE 


CASE 


"OTHER": 


USE OTHER; 
LOAD FROM OTHER; ! the other funds entry form 
IF COND - 1 THEN ! browse on COSTCODE 


BROWSE OTHER FOR COSTCODE = UPDATVAR ALL \ 
WITH OTHER; 


ELSE 
IF COND = 2 THEN ! browse on PRINCIPL 
BROWSE OTHER FOR PRINCIPL = UPDATVAR ALL \ 
WITA=OTHER; 
ENDIF, 
ENDIF; 
BREAK? 


"PFUNDING": 
USE PFUNDING; 
LOAD FROM PFUNDING; ! the personnel funding entry form 
IF COND = 1 THEN ! browse on LNAME 
BROWSE PFUNDING FOR LNAME = UPDATVAR ALL \ 
WITH PFUNDING; 


ELSE 

IF COND = 2 THEN ! browse on LABOR: 

BROWSE PFUNDING FOR LABOR# = UPDATVAR ALL \ 
WITH PFUNDING; 

ENDIF; 
ENDIF ; 
BREAK; 
"PHISTORY":; 


USE PHESTORY; 

LOAD FROM PHISTORY; ! the personnel history entry form 
BROWSE PHISTORY FOR LNAME = UPDATVAR ALL WITH PHISTORY; 
BREAK; 


184 


CASE "PURCHASE": 
USE PURCHASE; 


LOAD FROM PURCHASE; ! the purchase entry form 
BROWSE PURCHASE FOR DOC# = UPDATVAR ALL WITH PURCHASE; 
BREAK: 


CASE “TVLEXP™: 
USE TVLEXP; 
LOAD FROM TVLEXP; ! the travel expenses entry form 
BROWSE TVLEXP FOR DOC? = UPDATVAR ALL WITH TVLZXP; 
BREAK; 
ENDT EST: 


FINISH ALL; 


FORMANS 2 " "; 


RETURN; 
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APPENDIX J 
LIST OF TABLES 


This appendix contains a list of tne AS System's ta- 
bles. Appendix C (the Data Dictionary) and the AS System's 
User's Manual contains additional information about tne 
taoles's fields. The inclosed information may e obtained 
oy using KnowledgeMan's "show" command. 
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Table name < INDIRECT 

File name s INDIRE T.ITB 
Read Access : ABCDEFGHIJKL:1NOP 
Arite Access : ABCDEFGH IJALiINOP 
Creation Date : 02/25/86 


Modification Date : 02/25/86 
Number of Records : 44 


Field : MARK LOGIC 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGH IJXL:1NOP 
Picture : (default) 


Field : ENTRY NUM 

Read Access : ABCDEFSHIJXLANOP 
write Access : ABCDEFGHIJXL:INOP 
Picture : "dd-dd-dd" 


Field : STATUS STR 25 
Read Access : ABCDEFGHIJKLINOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "325r" 


Field : PRINCIPL STR 20 
Read Access : ABCDEFGHIJKLiINOP 
Write Access : ABCDEFGHIJKL:INOP 
Picture : "3201" 


Field : SPONSOR STR 40 
Read Access : ABCDEFGHIJ&KLiANOP 
Write Access : ABCDEFGHIJKL:‘INOP 
Picture : "340r" 


Field : PROPOSAL SO 
Read Access : ABCDEFGHIJ&L:INOP 
write Access : ABCDEFGHIJKLANOP 
Picture : "$130r" 


Field : PERIOD STR 20 
Read Access : ABCDEFGHIJKLHNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "$20r" 
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Field : ESTIMATE NUM 
Read Access : ABCDEFGHIJKLANOP 
Nrite Access : ABCDEFGHIJZALHNOP 
Picture : "Sddddddd.dd™ 


Field : DEPTIC NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJALMNOP 
Picture : "S$ddddd.dd" 


Field : MIPR# STR. MS 

‘Read Access : ABCDEFGHIJKLMNOP 
"Write Access : ABCDEFGHIJKLiNOP 
Picrlre : Ub 5 ra 


Field : REF# STR 25 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "325r" 

Field : AUTH NUM 


Read Access : ABCDEFGHIJKLINOP 
"rite Access : ABCDEFGHIJKL:INOP 
Picture : "şddddddd.dd" 


Field : COSTCODE STR 5 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFSHIJXL:INOP 
Picture : "35r" 


Field : EXPIRE NUM 

Read Access : ABCDEFGHIJKLHNOP 
Write Access : ABCDEFGHIJKLHNOP 
Picture : "dd-dd-dd" 


Field : ICRECD NU: 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLiANOP 
Picture ; "$ddddd.dd" 
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Field : REMARKS STR 50 
Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture 350r" 


Field : STAFFLBR NUM 

Read Access : ABCDEFGHIJKLMNOP 
Nrite Access : ABCDEFGHIJKLMNOP 
pctursew "sddadd.dd" 


Field : ASAPPRO NUM 
Read ACCess H POM C tege, ` 


Ne ACCESS ée e e a a a a a a ée a e 
Pireceurce ;: “Sdddda.da" 


Field : DOCZ STR 15 
Read AcceSS Ee e e ee e ER wu 
Wiebe ACCESS 8 A... co 0 004G doe 
Picture : "315r" 


Field : SEGMENT STR 5 

Read Access * Al... 4. Vu. 
UENMMEOGSNACCOeSS : Assoc. os 
Picture : "$6r" 


Field : SERIALS NUM 
Read Access a AA e e 


Nile ACCESS : A... 990 
Picture : "dddd-dddd" 
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INVENTOR 
INVENTOR.ITB 


Ås ee a E 


Table name 
File name 
Read Access 
write Access 
Creation Date : 12/18/85 
Modification Date : 12/18/85 
Number of Records : 0 


A CNET. is iie 


Field : #MARK LOGIC 

Read Access : A...... iius. es 
ceite ACCESS: Areson a Ta 
Picture : (default) 

Field : PAS STR 6 

Read. Access * A. «sheen ste eee 
Arite ACCESS : Asc he aae. see 
Picture : "%6r" 

Field : VENDOR STR 40 


Read Access 2: Acccocccvecccccce 
Trite Access a Ar AN NAA ee 
Picture : "540r" 


Field : DESCRIPT STR 50 
Read Access : A... EN. 
Write ACGOGOSSNOLA... EUER. eL 
Picture aM Sour 


Field : SERIAL# STR 12 
Read Access : 
Write Access : 
Picture : "“$12r 


A 
e S 
tí 


Field : PO# STR 9 
Read Access : 
Arite Access : 
Picture : "Soch 


NEES ARA 


E A a. a T 


Field : COST NUM 
Read .Access : A. 99«429 39 
E SE 


Write Access e 6 © e 0 @ @ @ @ @ @ @ @ 09 @ 
Picture : "Sdddddd. dd" 
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Mucus) RECEIVED NOM 
Read Access S A od cab SC e 


Arite ACCESS : A. EE. o oos eoe 
Picture : "dd-dd-dd" 


Field : ISSUE San 25 
Read Access : 

Write Access = Arcceccccecovcececs 
Picture : "325r" 


Pield : LOCATION STR 7 
RSOGMEEACGOSSO: A... voee e ce 
EE, At er ge a E Ce. a 
Picture : "537r" 
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Taole name >< OPTAR 
File name : OPTAR.ITS 
Read Access : ABCDEFGHIJKLANOP 
Trite Access : ABCDEFGHIJXLNOP 
Creation Date : 02/25/86 
Modification Date : 02/26/86 
Number of Records : 2 


Field : #HARK LOGIC 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJKLINNOP 
Picture : (default) 


Field: ENTRY AU. 

Read Access : A3CDEFGSHIJZL.NOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : "dd-dd-dd" 


Field : RECEIVED NUM 

Read Access : ABCDZFGHIJKLHANOP 
Nrite Access : ABCDEFGHIJZAL/NOP 
Picture : "dd-dd-dd" 


Field : AUTH NUM 

Read Access : ABCDEFGHIJKL:UNOP 
Write Access : ABCDEFGHIJKLHNOP 
Picture : "Sdddddd.da" 


Field: tard NU 

Read Access : ABCDEFGHIJXL:1NOP 
Write Access : ABCDEFGHIJALANOP 
Picture : "Sdddddd.dd" 


Field : ACTUAL NUM 

Read. ACCESS : As... i. 9 sus 
Write ACCESS : A... «este 
Picture : "Şdddddd.dđd" 


Field : TACTUAL NUM 

Read 2E6cE3353 HA... 0a cho saan 
TEIte ACCESS. ALA EE 
Pi eture : "Sdddddd.dd" 
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Field : DIFFER 

Virtual field : ((ACTUAL - AUTH) ) 
Read Ne@ess : A... otn 
Picture : (default) 


Virtual field : ((TACTUAL - TAUTH)) 
Read ACCesSs : Acoooooooooo.o...o. 
Picture : (default) 
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OTHER 
OTHER. ITB 
Read Access ABCDEFGH IJ XLMNOP 
Write Access ABCDEFGHIJXLANOP 
Creation Date : 02/20/86 
Modification Date : 02/25/86 
Number of Records : 6 


Table name 
File name 


Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : (default) 


Field : ENTRY NUM 

Read Access : ABCDEFGHIJ&LMNNOP 
Jrite Access : ABCDEFGHIJ&LANOP 
PAC CUM "dd-dd-dd" 


Field : STATUS STR? 25 
Read Access : ABCDEFGHIJEKLANOP 
"rite Access : ABCDEFGHIJKLANOP 
Picture : "$25r" 


Field : EXPIRE NUM 

Read Access : ABCDEFSHIJIKLANOP 
Write Access : ABCDEFGHIJKLAMNOP 
Picture : "ad-dd-dd" 


Field : PRINCIPL STR 20 
Read Access : ABCDEFGHIJKLANOP 
"rite Access : ABCDEFGHIJZRLANOP 
Picture ger 


Field : SPONSOR STR 35 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJXLHMNOP 
Picture : "$35r" 


Field : PROPOSAL STR 130 
Read Access : ABCDEFGHIJKLiINOP 
Write Access : ABCDEFGHIJKLiiNOP 
Picture : "3130r" 


194 


Field : COSTCODE STR 5 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJXLMNOP 
Pacture : "385r" 


Field : AUTH NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "Sdddddd.dd" 


Field : REMARKS STR 50 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "$50r" 


ug 


PFUNDING 
PFUNDING.ITB 
Read Access ABCDEFGHIJ KL:INOP 
Write Access ABCDEFGH IJ KLANOP 
Creation Date : 02/27/86 
Modification Date : 02/27/86 
Number of Records : 314 


Table name 
Pile name 


Field : MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKL-INOP 
Picture : (default) 


Field : ENTRY NUH 

Read Access : ABCDEFGHIJKLiINOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : “dd-dd-dd" 


Field : LNAHE SIANG 
Read Access : ABCDEFGHIJRKLANOP 
Write Access : ABCDEFGHIJKLHNOP 
Picture : "325r" 


Field : FNAME STR 15 
Read Accaəass : ABCDEFGHIJKL:INOP 
Arite Access : ABCDEFGHIJKL:AINOP 
Picture Ci” 


Field : FUNDFROA NUM 

Read Access : ABCDEFGHIJ&XL:INOP 
YJrite Access : ABCDEFGHIJALHNOP 
Picture : "dd-dd-dd" 


Field : FUNDTO NUH 

Read Access : ABCDEFGHIJKLJNOP 
Write Access : ABCDEFGH IJ KL:INOP 
Picture : "dd-dd-dd" 


Field : DAYS STR 5 

Read Access : ABCDEFGHIJKLiINOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "$5r" 
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Field : COSTCODE STR 5 

Read Access : ABCDEFGHIJKL:1NOP 
Write Access : ABCDEFGHIJKL:1NOP 
Picture : "35r" 

Field : AMOUNT NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "Sddddd.dd" 

Field : LABOR# NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : "dd-dd-dd" 

Field : CODE SER. 3 
Read ACCESS : A... «ee © cs. 
EMELOIACCOSS : Ac... o e cr 
Proeture : "33r" 

Field : HOURS NUM 

Read ACCESS =? As .bacs ccc seieuees 
ie ACCESS : Ase iccc ce ss eieue e's 
Picture : "d" 

Field : RATE NUH 

Redd Access : Aou... ee exexece 
Irie ACCESS : Al...eccccotocvec 
MWeture : "Sddd.da" 

Field : HRSWUX NUM 

nead AGGOSS : Ajo... NN ww we E 
mice ACCESS : Assssccececsccece 
Picture : "dd" 
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PHISTORY 
BESSER 
ABCDEFGHIJ&LAUNOP 
ABCDEFGHIJXLANOP 


Taole name 
File name 
Read Access 
Write Access 


ee 99 ee eg 


Creation Date : 02/27/86 
Modification Date : 02/27/86 
Number of Records : D 
Field : 3#MARK LOGIC 


Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJXLMNOP 
Picture : (default) 


Field : ENTRY NUH 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFPGHIJnL:INOP 
Picture : "dd-dd-dd" 


Field : LNAME STR. 295 
Read Access ABCDEFPGHIJXLUNOP 
Nrite Access ABCDEFGH IJXLIMNOP 
Picture : "325r" 


Field : FNAME S RIS 
Read Access : ASCDEFGHIJKLANOP 
Write Access ;: ABCDEFGHIJ&AL-INOP 
Picture : Pr" 


Field : DOB NUM 

Read Access : ABCDEFGHIJALINOP 
Jrite Access : ABCDETSHIJIXKLINOP 
Picture : "dd-dd-dd" 


Field : EFFECTIV NUM 

Read Access : ABCDEFGHIJKL?INOP 
Write Access : ABCDEFGHIJKLiINOP 
Picture : "dd-dd-dd" 


Field : STATUS . STR 6 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJXLAMNOP 
Picture >" "265. 
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Field : BILLET# STR 4 

Read Access : ABCDEFGHIJKLANOP 
Arite Access : ABCDEFGHIJKLiUNOP 
Pacture : Medr” 


Field : JOBTITLE STR 30 
Read Access : ABCDEFGHIJKL:NOP 
Write Access : ABCDEFGHIJEXLANOP 
Picture : "$30r" 


Field : ES NU; 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 


Field : ‘JORXUNIT STR 18 
Read Access : ABCDEFGHIJXLiINOP 
Write Access : ABCDEFGHIJKLIHNOP 
Picture : "%10r" 


Field : SUPERVSR STR 25 
Read Access : ABCDEFGHIJXL:INOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : SENSE 


Field : PD# STR 5 
Read Access : ABCDEFGHIJXLMNOP 
Write Access : ABCDEFGHIJXLMNOP 


Picture : "35r" 


Field : SERIES NUM 

Read Access : ASCDEFGHIJKLIINOP 
Write Access : ABCDEFGHIJKLINOP 
Precune :"ddddd" 


Field : GRADE NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Puseture : "dd" 
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Field : STEP NUM 

Read Access : ABCDEFGHIJKL'UNOP 
Write Access : ABCDEFGHIJALiIINOP 
Picture : "dar 


Field : SALARY NUH 

Read Access : ABCDEFGHIJXLHNOP 
Write Access : ABCDEFGHIJALMNOP 
Picture : "Sddddd.dd" 


Field : HRSWK NUM 

Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJZALANOP 
Pictüro Moda” 


Field : SAXPIAZ 21074 

Read Access : ABCDEFPGHIJXKL:AINOP 
Yrite Access : ABCDEFGHIJXL:1NOP 
Picture : "dd-dd-dd" 


Field : REMARKS STR 100 
Read Access : ABCDEFGHIJALANOP 
"rite Access : ASCDEFGHIJALANOP 
Picture : "$2100r" 


Field : RATE 

Virtual field : (((SALARY / 2087) * 8 * 1.30000))) 
Read Access : AS3CDEFGHIJRNL:/ÓNOP 

Picture . “Sidd. dat 
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Table name : PURCHASE 

File name >< PURCHASE. ITB 
Read Access : ABCDEFGHIJKLANOP 
write Access : ABCDEFGHIJZLANOP 
Creation Date : 02/11/86 


Modification Date : 02/28/86 
Number of Records : 268 


Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : (default) 


Field : ENTRY NUM 

Read Access : ABCDEFGHIJKL:ANOP 
Write Access : ABCDEFGHIJXLANOP 
Picture : "da-dd-dd" 


Field : DOC# STR 10 
Read Access : ABCDEFGHIJRLHMNOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : "310r" 


Field : COSTCODE STR 5 

Read Access : AS3CDEFGHIJKL/JNOP 
"rite Access : ABCDEFGHIJAXLiNOP 
Picture : "35r" 


Field : VENDOR STR 40 
Read Access : ABCDESGHIJKLIINOP 
Write Access : AS3CDEFGHIJKL:;INOP 
Picture : "$40r" 


Field : DESCRIPT STR 50 
Read Access : ABCDEFPGHIJKL:INOP 
Write Access : ABCDEFGHIJKL:INOP 
Picture : "350r" 


Field : STOCK? STR 20 
Read Access : ABCDEFGHIJKLNOP 
Write Access : ABCDEFGHIJZRLANOP 
Picrellre .” "2320r" 
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Field : ESTIAATE NUH 

Read Access : ABCDEFGSHIJELMANOP 
Nrite Access : ABCDEFGHIJ&L:INOP 
Picture : "Sddddd.dd" 


Field : PRIORITY NU | 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : "dd" 


Field : RDD NU A 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 


Field : CODE STR 3 

Read Access ASCDEFGHIJXL:;INOP 
Arite Access ABCDEFGH IJ KLANOP 
Pictura : "223% 


Field : REQUESTR STR 25 
Read Access : ABCDEFGHIJKL:INOP 
Write Access.: ABCDEFGHIJKL:INOP 
Picture : "525r" 


Field : POF STR 9 

Read Access : ABCDEFGH IJRKL:ANOP 
Write Access : ABCDEFGHIJKLUNOP 
Picture : "39r" 


Field : RZECZIVZD NUM 

Read Access : ABCDEFGHIJKLANOP 
Write Access : ABCDEFGHIJXLHNOP 
Picbunce a da dd 


Field : FIRII NUH 

Read Access : ABCDEFSHIJXKL:INOP 
Write Access : ABCDEFGH IJKL:i1NOP 
Picture : "Sddddd.dd" 
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Field : SERIAL? STR 12 
Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJAXLMNOP 
Picture : '"UxM2r" 


Field : PA# STR 17 
Read Access : ABCDEFGHIJKL:INOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : "$]7r" 


Field : ISSUE STR 25 
Read Access : ABCDEFGHIJKLiINOP 
write Access : ABCDEFGHIJXLINOP 
Picture : "225r" 


Field : LOCATION SUR. 7 

Read Access : ABCDEFGHIJKL:1NOP 
Write Access : ABCDEFGHIJRLANOP 
Picture : "7r" 


Field : REMARKS STR 50 
Read Access : ABCDEFGHIJKLiINOP 
Write Access ;: ABCDEFGHIJKLiINOP 
Picture : "550r" 


Field : QTY STR 3 
Read Access 
Arite Access 
Precure : "rrr" 


m pe Ur" 


cars: ee 
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Table name : TVLEXP 

File name : TUBEXP? “IB 

Read Access : ABCDEFGHIJKL:AINOP 
Write Access : ABCDEFGHIJKLUNOP 
Creation Date < 02/28/386 
Modification Date : 02/23/86 
Number of Records : 133 


Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLHNOP 
Write Access : ABCDEFGHIJKLANOP 
Picture : (default) 


Field : DATEDEP NUM 

Read Access : ABCDEFGHIJAL-AINOP 
Write Access : ABCDEFGHIJ ALAINOP 
Picture : "dd-dd-dd" 


Field : REQUESTR STR 20 
Read Access : ABCDEFGHIJEL!INOP 
“Write Access : ABCDEFGHIJKLANOP 
Brocuro :—»0r^" 


Field : LOCATION STR 25 
Read Access : ABCDEFSHIJKL:1NOP 
Yrite Access : ABCDEFGHIJXL:1NOP 
Preture 5r" 


Field : CODE STR 3 
Read Access : ABCDEFGHIJKL:AINOP 
Write Access : ABCDEFGHIJIXL NO? 
Picture :W ool 


Field : ESTIMATE NUM 

Read Access : ABCDEFGHIJXLIINOP 
"rite Access : ABCDEPGHIJKLANOP 
Precure pom -dddd.dd— 


Field : COSTCODE STR 5 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFSHIJKL:INOP 
Picture : "325r" 
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Field : DOC# STR 10 
Read Access : ABCDEFGHIJKXLUNOP 
Nrite Access : ABCDEFGHIJRALANOP 
Picture : "3l0r"” 


Field : ADVANCE NUI 

Read Access : ABCDEFGHIJKLINOP 
write Access : ABCDEFTGHIJXLiINOP 
Picture = “Sddd.dda" 


Field : DATERET NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJALMNOP 
Picture : "dd-dd-dd" 


Field : CLATil NU 

Read Access : ABCDEFGHIJXLNOP 
“rite Access : ABCDEFGHIJXL/INOP 
Picture : "dd-dd-dd" 


Field : FIR! NUM 

Read Access : ABCDEFGHIJKLNNOP 
Write Access : ABCDEFGHIJRLAUNOP 
Preture Gi "Sddddd.dd" 
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Field : ENTRY NUM 

Read Access : ABCDEFGHIJKLNOP 
Arite Access : ABCDEFGHIJKL:iNOP 
Picture : "dd-dd-dd" 


Field : DOV# SER 5 

Read Access : DE... mm... eee 
Write Access : Aloy... E 
Picture p *"rrrrr" 
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